Me.Item_IdentificationTableAdapter.Fill(Me.Halmattrac.Item_Identification)
lbWSIDNumber.SelectedItems.Clear()
Private Sub btn000_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn000.Click
Dim i As Integer = 0
MsgBox(lbWSIDNumber.Items.Count) 'shows 127 items
For i = 0 To lbWSIDNumber.Items.Count - 1
MsgBox(lbWSIDNumber.Items(i).ToString) 'shows System.Data.DataRowView
If lbWSIDNumber.Items(i).ToString.ElementAt(3) = "0" Then
lbWSIDNumber.SelectedIndices.Add(i)
End If
Next
End Sub
|