تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن العرض من قاعده البيانت الى الداتا جريد يوجد صورة
#1
السلام وعليكم ورحمته الله وبركاتة 


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

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


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة:
#2
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 

كود بعد التعديل
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم