vb.net 循环遍历数据行并将每个值添加到列表框中

Question

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

我使用此代码循环访问我的 DataRow。

它将每条记录添加到 ListBox 中，但不会添加列表中的最后一条记录 DataRow 添加到列表中。

有什么帮助吗？

Answer 1

如果我理解正确，您希望将数据行中的每一列添加为列表框中的新列表框项。

如果我是对的，那么下面的例子就可以做到。我将使用数据集：

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

这会将第 i 行中每列的内容添加到列表框中。 If 语句会阻止它增加 i，直到添加最后一列。

请记住我还没有测试过这段代码。

华泰