[محمود صالح]

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 


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