vb.net Schleife durch datarow und fügen Sie die einzelnen Werte in einer listbox

Private Function ColumnEqual(ByVal A As Object, ByVal B As Object) As Boolean
  If A Is DBNull.Value AndAlso B Is DBNull.Value Then
    Return True 
  End If

  If A Is DBNull.Value OrElse B Is DBNull.Value Then
    Return False 
  End If

  Return A.Equals(B)
End Function
...

Public lastV As Object
...
For Each dr In wData.Rows
  If lastV Is Nothing OrElse Not ColumnEqual(lastV, dr("table1")) Then
    ''check if first value is nothing
    If lastV = Nothing Then
      lastV = "00"
      l = "0"
    Else
      dr("t1") = lastV
      dr("n1") = l
    End If
    ListBox1.Items.Add(lastV & " <--> " & l)
    lastV = dr("table1")
    l = 1
  ElseIf lastV Is Nothing OrElse ColumnEqual(lastV, dr("table1")) Then
    l += 1
  End If
Next

Ich benutze diesen code, um eine Schleife durch meine DataRow.

Es fügt jedem Datensatz in einer ListBox, aber es funktioniert nicht fügen Sie den letzten Datensatz in der
DataRow der Liste.

Hilfe?

  • Was ist lastV und wo haben Sie initialisiert diese Variablen und diese Schleife?
  • die Schleife initialisiert wird, wenn Daten geladen werden, in das datagridview.
  • Sorry, ich kann nicht Kopf oder Schwanz davon. Aber ich dringend empfehlen "Option Strict" Auf in den Einstellungen Ihres Projektes oder - besser - weltweit in Ihrem Visual Studio-Optionen.
InformationsquelleAutor Gbolahan | 2010-07-23
  1. 1

    Wenn ich Sie richtig verstehe, Sie wollen, fügen Sie für jede Spalte in der datarow wie eine neue ListBox-item in der ListBox.

    Wenn ich Recht habe, dann ist das folgende Beispiel würde es tun. Ich würde ein DataSet verwenden:

    Dim i As Integer = 0
For j As Integer = 0 To wData.Tables(0).Columns.Count - 1
    ListBox1.BeginUpdate()
    ListBox1.Items.Add(wData.Tables(0).Rows(i)(j).ToString)
    ListBox1.EndUpdate

    If j = wData.Tables(0).Column.Count - 1 Then
        i = i + 1
    End If
Next

    Diese fügen den Inhalt jeder Spalte in der Zeile i der ListBox. Die If - Anweisung Stoppt Sie von der Inkrementierung i bis es Hinzugefügt letzten Spalte.

    Bitte beachten Sie habe ich noch nicht getestet mit diesem code.

    HTH

    • give it a shot, und Sie wissen lassen,..prost!!
    InformationsquelleAutor Logan Young
Schreibe einen Kommentar