13-08-18, 10:18 AM
السلام عليكم اخواني ارجو المساعدة لو سمحتم ان عايز اعمل تعبية للتاتا قريدفيو فية نافذ البيع واستخدمت هذا الكود لكين يعطيني خطاء في التعبية ارجو المساعدة ارجوالمساعدة
هذا هو الكود الاستخدمتها
Dim x As Integer
cmd = New OleDbCommand("SELECT * FROM stourg WHERE bx = '" & TextBox2.Text & "' ", con)
'con.Open()
da = New OleDbDataAdapter(cmd)
da.Fill(dt)
If dt.Rows.Count > 0 Then
GVMaterials.Rows.Add()
x = GVMaterials.Rows.Count - 1
GVMaterials(0, x).Value = dt.Rows(0).Item("a")
GVMaterials(1, x).Value = dt.Rows(0).Item("bx")
GVMaterials(2, x).Value = dt.Rows(0).Item("b")
GVMaterials(3, x).Value = dt.Rows(0).Item("q")
GVMaterials(4, x).Value = dt.Rows(0).Item("f")
GVMaterials(5, x).Value = TextBox1.Text
GVMaterials(6, x).Value = Val(dt.Rows(0).Item("f")) * Val(TextBox1.Text)
GVMaterials(7, x).Value = dt.Rows(0).Item("k")
'con.Close()
End If
TxTInvoiceAmoun()
TextBox2.Text = ""
TextBox1.Text = ""
TextBox2.Focus()
TxTNumberItems.Text = GVMaterials.RowCount
هذا هو الكود الاستخدمتها
Dim x As Integer
cmd = New OleDbCommand("SELECT * FROM stourg WHERE bx = '" & TextBox2.Text & "' ", con)
'con.Open()
da = New OleDbDataAdapter(cmd)
da.Fill(dt)
If dt.Rows.Count > 0 Then
GVMaterials.Rows.Add()
x = GVMaterials.Rows.Count - 1
GVMaterials(0, x).Value = dt.Rows(0).Item("a")
GVMaterials(1, x).Value = dt.Rows(0).Item("bx")
GVMaterials(2, x).Value = dt.Rows(0).Item("b")
GVMaterials(3, x).Value = dt.Rows(0).Item("q")
GVMaterials(4, x).Value = dt.Rows(0).Item("f")
GVMaterials(5, x).Value = TextBox1.Text
GVMaterials(6, x).Value = Val(dt.Rows(0).Item("f")) * Val(TextBox1.Text)
GVMaterials(7, x).Value = dt.Rows(0).Item("k")
'con.Close()
End If
TxTInvoiceAmoun()
TextBox2.Text = ""
TextBox1.Text = ""
TextBox2.Focus()
TxTNumberItems.Text = GVMaterials.RowCount