[مراد بورجي]

السلام وعليكم ورحمته الله وبركاتة 


لدي داتا جريد فيو  احفظ منها الى قاعده البيانات شغاله تمام بس المشكلة لمن اشتي اعرض المحفوظ بشرط رقم الفاتورة يلخبط في اعمدة الداتا جريد 

كما هو في الصورة 182  الداتا جريد اول ما اشغل الفورم  ولكن عند الضغط على زر فيو وادخال رقم الفاتورة  تيجي الغلط في الصورة 181 


والكود هو .

كود :

       Dim x As String = InputBox("INVOICE NO ")
       If IsNumeric(x) = False Then
           MsgBox("يرجى كتابة رقم الفاتورة ")
           Exit Sub
       Else
           Dim DataAdapter As New OleDbDataAdapter("SELECT part_no,des,qty,up,tp FROM QYE WHERE inv=" & Val(x) & "", con)
           con.Open()
           dataset1.Clear()
           DataAdapter.Fill(dataset1, "QYE")
           Me.DataGridView1.Refresh()
           con.Close()



           DataGridView1.DataSource = dataset1
           DataGridView1.DataMember = "QYE"



           DataGridView1.Refresh()

           DataGridView1.RowHeadersWidth = 25


           DataGridView1.Columns(0).Width = 180
           DataGridView1.Columns(1).Width = 100
           DataGridView1.Columns(2).Width = 100
           DataGridView1.Columns(3).Width = 100
           DataGridView1.Columns(4).Width = 100
           DataGridView1.Columns(0).HeaderText = "PART NO"
           DataGridView1.Columns(1).HeaderText = "DESCREPTION"
           DataGridView1.Columns(2).HeaderText = "QTY"
           DataGridView1.Columns(3).HeaderText = "UNIT RATE"
           DataGridView1.Columns(4).HeaderText = "TOTAL"

   
       End If