تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس
#1
السلام عليكم جميعا من فضلكم أرجو المساعدة في تحويل هذا الكود من الداتا غريدفيو إلى الغريد كونترول التابع للديف إكسبرس 
جزاكم الله خيرا 
 For M As Integer = 0 To DataGridView1.Rows.Count - 1
            DataGridView1.Rows(M).Cells(10).Value = Date.Now
        Next
        If textBcode.Text <> Nothing Then
            Dim DT As New DataTable
            Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM ITEMS WHERE ITEM_BARE LIKE '" & textBcode.Text & "'", sqlConn)
            DA.Fill(DT)
            If DT.Rows.Count > 0 Then
                '______________________التحقق من كود الصنف
                For I = 0 To DataGridView1.Rows.Count - 1
                    If DataGridView1.Rows(I).Cells(0).Value = DT.Rows(0).Item("ITEM_CODE") Then
                        DataGridView1.Rows(I).Cells(4).Value = Val(DataGridView1.Rows(I).Cells(4).Value) + 1
                        textBcode.Clear()
                        Exit Sub
                    End If

                Next
                '______________________إضافة سجل للداتا قريد
                Dim BAR As Integer
                DataGridView1.Rows.Add()
                BAR = DataGridView1.Rows.Count - 1
                DataGridView1(0, BAR).Value = DT.Rows(0).Item("ITEM_CODE")
                DataGridView1(1, BAR).Value = DT.Rows(0).Item("ITEM_NAME")
                DataGridView1(2, BAR).Value = DT.Rows(0).Item("ITEM_UNITE")
                DataGridView1(4, BAR).Value = 1
                DataGridView1(4, BAR).Selected = True
            Else


            End If
        End If
الرد }}
تم الشكر بواسطة:



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


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