[عبدالرحمن بشري عمر]

السلام عليكم اخواني ارجو المساعدة لو سمحتم ان عايز اعمل تعبية للتاتا قريدفيو فية نافذ البيع واستخدمت هذا الكود لكين يعطيني خطاء في التعبية ارجو المساعدة ارجوالمساعدة
هذا هو الكود الاستخدمتها
        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