18-01-18, 07:10 PM
السلام وعليكم ورحمته الله وبركاتة
لدي داتا جريد فيو احفظ منها الى قاعده البيانات شغاله تمام بس المشكلة لمن اشتي اعرض المحفوظ بشرط رقم الفاتورة يلخبط في اعمدة الداتا جريد
كما هو في الصورة 182 الداتا جريد اول ما اشغل الفورم ولكن عند الضغط على زر فيو وادخال رقم الفاتورة تيجي الغلط في الصورة 181
والكود هو .
لدي داتا جريد فيو احفظ منها الى قاعده البيانات شغاله تمام بس المشكلة لمن اشتي اعرض المحفوظ بشرط رقم الفاتورة يلخبط في اعمدة الداتا جريد
كما هو في الصورة 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