Guten Tag!
Ich habe auf einer Form 2 DatagridViews (tblBoxdgv und tblStückdgv). Beide haben in der ersten Spalte Zahlen vom Typ Integer. tblBoxdgv jede Zahl nur jeweils einmal, also 1,2,3,4,5,6,.., tblStückdgb aber ein-oder mehrmals, also 1,1,1,1,1,1,2,2,2,3,4,4,4,4,5,6,6,6...
Ich möchte nun, dass beim Anclicken einer Zeile im tblStückdgv die Zeile im tblBoxdgv mit der gleichen Ziffer selektiert wird. Das gelingt mit diesem Code auch, allerdings nicht, wenn ich nach dem Starten des Programms einer der Zeilen mit der Ziffer 1 anclicke. Bei allen anderen funktioniert das sehr gut. Habe ich erst einmal eine andere Ziffer 2 - ... angeclickt, wird beim nächsten Mal auch die Ziffer 1 richtig selektiert.
Im Label1 werden auch beim ersten Click alle Werte richtig angezeigt.
Woran mag das liegen?
Vielen Dank für Eure Mithilfe!
Viele Grüße
el
Ich habe auf einer Form 2 DatagridViews (tblBoxdgv und tblStückdgv). Beide haben in der ersten Spalte Zahlen vom Typ Integer. tblBoxdgv jede Zahl nur jeweils einmal, also 1,2,3,4,5,6,.., tblStückdgb aber ein-oder mehrmals, also 1,1,1,1,1,1,2,2,2,3,4,4,4,4,5,6,6,6...
Ich möchte nun, dass beim Anclicken einer Zeile im tblStückdgv die Zeile im tblBoxdgv mit der gleichen Ziffer selektiert wird. Das gelingt mit diesem Code auch, allerdings nicht, wenn ich nach dem Starten des Programms einer der Zeilen mit der Ziffer 1 anclicke. Bei allen anderen funktioniert das sehr gut. Habe ich erst einmal eine andere Ziffer 2 - ... angeclickt, wird beim nächsten Mal auch die Ziffer 1 richtig selektiert.
Im Label1 werden auch beim ersten Click alle Werte richtig angezeigt.
VB.NET-Quellcode
- Private Sub TblStückdgv_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TblStückdgv.CellClick
- If e.RowIndex > -1 Then
- Dim zahl As Integer
- TblBoxdgv.SelectionMode = DataGridViewSelectionMode.FullRowSelect
- For i = 0 To Me.TblBoxdgv.RowCount - 1
- If CInt(TblBoxdgv.Item(0, i).Value) = CInt(TblStückdgv.Item(0, e.RowIndex).Value) Then
- zahl = i
- TblBoxdgv.CurrentCell = TblBoxdgv.Item(0, zahl)
- Exit For
- End If
- Next
- Label1.Text = TblStückdgv.Item(0, e.RowIndex).Value.ToString + ">>" + (TblBoxdgv.Item(0, zahl).Value).ToString + ">" + zahl.ToString
- End If
- End Sub
Woran mag das liegen?
Vielen Dank für Eure Mithilfe!
Viele Grüße
el