1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Dim liste(tableCasiers.Rows.Count, 10) As String
For i = 0 To tableCasiers.Rows.Count
If tableCasiers.Rows(i).Item("Date").ToString = "" Then Exit For
If tableCasiers.Rows(i).Item("PJ").ToString = ListBox6.Text Then
liste(i, 0) = tableCasiers.Rows(i).Item("PJ").ToString
liste(i, 1) = tableCasiers.Rows(i).Item("Date").ToString
liste(i, 2) = tableCasiers.Rows(i).Item("Type interaction").ToString
liste(i, 3) = tableCasiers.Rows(i).Item("Organisation").ToString
liste(i, 4) = tableCasiers.Rows(i).Item("Personne").ToString
liste(i, 5) = tableCasiers.Rows(i).Item("Notes").ToString
liste(i, 6) = tableCasiers.Rows(i).Item("Notoriety").ToString
liste(i, 7) = tableCasiers.Rows(i).Item("Street Cred").ToString
liste(i, 8) = tableCasiers.Rows(i).Item("Public Awareness").ToString
End If
Next
For i = 0 To tableCasiers.Rows.Count
CasierInteractionCB.Text = liste(i, 2)
CasierOrgaTextBox.Text = liste(i, 3)
CasiersPersTextBox.Text = liste(i, 4)
NotesTextBox.Text = liste(i, 5)
NotoCB.Text = liste(i, 6)
StreetCCB.Text = liste(i, 7)
PACB.Text = liste(i, 8)
Next |
Partager