1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| dim dr As DataRow
Dim dt As New DataTable
'pour creer les colonne de datagrid
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dt.Columns.Clear()
dt.Columns.Add(New DataColumn("codebarre", GetType(String)))
DataGridView1.DataSource = dt
DataGridView1.Refresh()
End Sub
'pour inserer les code barre scanner par une douchette.
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
'ça pour remplir le data grid
dr = dt.NewRow
dr(0) = TextBox1.Text
dt.Rows.Add(dr)
End Sub |
Partager