vb.net boucle à travers datarow et de l'ajout de chaque valeur dans une 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

J'utilise ce code pour faire une boucle dans ma DataRow.

Il ajoute chaque enregistrement dans une ListBox, mais il n'ajoute pas le dernier enregistrement de la
DataRow à la liste.

Toute aide?

  • Qu'est-ce que lastV et où pensez-vous d'initialisation de ces variables et de cette boucle?
  • la boucle est initialisé lorsque les données sont chargées dans le datagridview.
  • Désolé, je ne peux pas faire la tête ou la queue de il. Mais je recommande fortement de mettre "Option Strict" dans les Paramètres de votre Projet ou - mieux - à l'échelle mondiale dans vos Options de Visual Studio.
InformationsquelleAutor Gbolahan | 2010-07-23
  1. 1

    Si je vous comprends bien, vous voulez ajouter chaque colonne dans le datarow comme une nouvelle zone de liste de l'élément dans la ListBox.

    Si je suis à droite, puis dans l'exemple suivant, le faire. J'aimerais utiliser un DataSet:

    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

    Cela va ajouter le contenu de chaque colonne dans la ligne i de la ListBox. Le If déclaration de l'arrête de l'incrémentation i jusqu'à ce qu'il est ajouté à la dernière colonne.

    Veuillez garder à l'esprit que je n'ai pas testé ce code.

    HTH

    • va donner un coup de feu et laissez vous savez..cheers!!
    InformationsquelleAutor Logan Young