1 2 3 4 5 6 7 8 9 10 11 12 13 14
| ElseIf RadioButton3.Checked = True Then
strfindfournisseur = "select * from Tinventaire where [fournisseur]='" & TextBox1.Text
cmdfindfournisseur = New OleDbCommand(strfindemplacement)
cmdfindfournisseur.Connection() = inventconnection
dataadapfournisseur = New OleDbDataAdapter(cmdfindemp)
inventdatatable = inventdataset1.Tables("Tinventaire")
For i = 0 To inventdatatable.Rows.Count - 1
'If inventdatatable.Rows(i).Item("fournisseur") = "" Then
' i = i + 1
'End If
If inventdatatable.Rows(i).Item("fournisseur") = TextBox1.Text Then
Me.DataGridView1.Rows.Add(inventdatatable.Rows(i).Item(0), inventdatatable.Rows(i).Item(1), inventdatatable.Rows(i).Item(2), inventdatatable.Rows(i).Item(3), inventdatatable.Rows(i).Item(4), inventdatatable.Rows(i).Item(5), inventdatatable.Rows(i).Item(6), inventdatatable.Rows(i).Item(7), inventdatatable.Rows(i).Item(8), inventdatatable.Rows(i).Item(9), inventdatatable.Rows(i).Item(10))
End If
Next |
Partager