Hi,
ich hab hier eine kleine Herausforderung.
Ich möchte einn datagrid durchforsten und zwar Zellengenau. Das geht genau solange gut wie ich die obere for schleife nicht wiederholenlasse (genau das funktioniert nämlich nicht.)
Eigentlich soll das kleine skript nur jede Zelle runterwärts durchgehen und danach eine column weiter nach rechts. Beim der letzten Row in einer Column bleibt das Skript aber nicht stehen, sondern geht einfach weiter Lustig nach unten, zu nicht exisiterenden Datensätzen.
Beim Durchlauf bekomm ich die Fehlermeldung die Ihr im Anhang findet.
ich hab hier eine kleine Herausforderung.
VB.NET-Quellcode
- Dim yTable1 As Integer
- Dim yTable2 As Integer
- Dim xtable1 As Integer
- Dim xtable2 As Integer
- yTable1 = DataGridView1.ColumnCount
- yTable2 = DataGridView2.ColumnCount
- xtable1 = DataGridView1.RowCount
- xtable2 = DataGridView2.RowCount
- 'Row Tables
- 'table1
- Dim i As Integer
- Dim k As Integer
- 'table2
- Dim j As Integer
- Dim l As Integer
- i = 1
- j = 1
- For i = 1 To yTable1 Step +1
- For k = 1 To xtable1 Step +1
- 'code für Column Vergleich
- 'MsgBox(k & " " & i)
- If k = xtable1 Then
- i = i
- End If
- If k < xtable1 - 1 Then
- Me.DataGridView1.CurrentCell = Me.DataGridView1(i, k)
- MsgBox(DataGridView1.CurrentCell.Value)
- End If
- Next k
- If i = yTable1 Then
- MsgBox("max reached")
- Exit For
- MsgBox("das wars")
- End If
- Next i
Ich möchte einn datagrid durchforsten und zwar Zellengenau. Das geht genau solange gut wie ich die obere for schleife nicht wiederholenlasse (genau das funktioniert nämlich nicht.)
Eigentlich soll das kleine skript nur jede Zelle runterwärts durchgehen und danach eine column weiter nach rechts. Beim der letzten Row in einer Column bleibt das Skript aber nicht stehen, sondern geht einfach weiter Lustig nach unten, zu nicht exisiterenden Datensätzen.
Beim Durchlauf bekomm ich die Fehlermeldung die Ihr im Anhang findet.
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „khargara“ ()