[مراد بورجي]

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


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

كما هو في الصورة 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

[محمود صالح]

PHP كود :

       Dim x As String = InputBox("INVOICE NO ")
        If IsNumeric(x) = False Then
            MsgBox("يرجى كتابة رقم الفاتورة ")
            Exit Sub
        Else

            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"


            DataGridView1.Columns(0).DataPropertyName = "part_no"
            DataGridView1.Columns(1).DataPropertyName = "des"
            DataGridView1.Columns(2).DataPropertyName = "qty"
            DataGridView1.Columns(3).DataPropertyName = "up"
            DataGridView1.Columns(4).DataPropertyName = "tp"

            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.AutoGenerateColumns = False
            DataGridView1.DataSource = DataSet1
            DataGridView1.DataMember = "QYE"

            DataGridView1.Refresh()

        End If 


كود بعد التعديل