Zitat:

Habe ein größeres Problem und weiß keine Lösung: 1)Aus einem Typed Dataset öffne ich eine Tabelle mit Button "Suchen" aus. 2)In der geöffneten Tablle sortiere ich nach einem beliebigen Datenfeld und finde so den gewünschten Datensatz. 3)Mache in der umsortierten Tabelle einen Doppelklick auf den gefundenen Datensatz. 4)Nun das Problem - Der Wert KundeID ist nicht die angezeigte Indexnummer. Sie ist die Position, also die Zeile der Auswahl. Wie kann ich die KundeID ermitteln, die Zeile ist je nach Sortierungsauswahl eine andere? Bitte um Hilfe! Private Sub TblKundeDataGridView_RowHeaderMouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles TblKundeDataGridView.RowHeaderMouseDoubleClick   If Me.TblKundeDataGridView.SelectedRows.Count > 0 Then KundeID = Me.LabSQLVorerfassTW.tblKunde _ (TblKundeBindingSource.Position).KundeID Me.DialogResult = Windows.Forms.DialogResult.OK End If   End Sub

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim F2 As New Form2()
+++Windows FormDesigner generated Code +++
    Private Sub ShowButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles ShowButton.Click
        F2.ShowDialog(Me) ' Show the second form
        MessageBox.Show(F2.mywert)
    End Sub
End Class
 
Public Class Form2
    Inherits System.Windows.Forms.Form
+++Windows FormDesigner generated Code+++
    Shared OrderID As Integer
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "NorthwindDataSet.Orders". Sie können sie bei Bedarf verschieben oder 
        ' entfernen.
        Me.OrdersTableAdapter.Fill(Me.NorthwindDataSet.Orders)
    End Sub
 
    Private Sub OrdersDatagridView_RowHeaderMouseDoubleClick(ByVal sender As _
      Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) _
      Handles OrdersDataGridView.RowHeaderMouseDoubleClick
        If Me.OrdersBindingSource.Count > 0 Then
            OrderID = Me.NorthwindDataSet.Orders( _
              OrdersBindingSource.Position).OrderID
            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub
 
    Public ReadOnly Property mywert() As Integer
        Get
            Return OrderID
        End Get
    End Property
 
End Class