منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف يمكن العرض من قاعده البيانت الى الداتا جريد يوجد صورة

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مراد بورجي

محمود صالح