منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس (/showthread.php?tid=40324)



تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس - nouribenyahia - 25-12-21

السلام عليكم جميعا من فضلكم أرجو المساعدة في تحويل هذا الكود من الداتا غريدفيو إلى الغريد كونترول التابع للديف إكسبرس 
جزاكم الله خيرا 
 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



RE: تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس - عبد العزيز البسكري - 25-12-21

أخي الكريم
يمكنني عمل ذلك و لكن بطريقة أخرى 
تحياتي



RE: تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس - nouribenyahia - 25-12-21

(25-12-21, 03:30 PM)عبد العزيز البسكري كتب :
أخي الكريم
يمكنني عمل ذلك و لكن بطريقة أخرى 
تحياتي

شكرا لك سي عبد العزيز على التفاعل 
كيف الطريقةبارك الله فيك


RE: تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس - عبد العزيز البسكري - 25-12-21

(25-12-21, 05:57 PM)nouribenyahia كتب :
(25-12-21, 03:30 PM)عبد العزيز البسكري كتب :
أخي الكريم
يمكنني عمل ذلك و لكن بطريقة أخرى 
تحياتي

شكرا لك سي عبد العزيز على التفاعل 
كيف الطريقةبارك الله فيك



RE: تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس - nouribenyahia - 25-12-21

(25-12-21, 08:02 PM)عبد العزيز البسكري كتب :
(25-12-21, 05:57 PM)nouribenyahia كتب :
(25-12-21, 03:30 PM)عبد العزيز البسكري كتب :
أخي الكريم
يمكنني عمل ذلك و لكن بطريقة أخرى 
تحياتي

شكرا لك سي عبد العزيز على التفاعل 
كيف الطريقةبارك الله فيك

عملت لك طريقتين 
الأولى غير مباشرة يمكنك إختيار المنتج من خلال الكومبوبكس ثم إرسال بيانات التاكسات بوكس إلى الجريد كنترول
الطريقة الثانية .. و هي الطريقة المباشرة من خلال الإستعلام برمز الباركود و إستخلاص بقية البيانات و هي تقريبا طريقتك بالسؤال 
تحياتي
مشكور بارك الله فيك راح اجرب


RE: تحويل الداتاغريدفيو إلى الغريد كونترول التابع للديف إكسبرس - DR.YASER - 26-12-21

(25-12-21, 08:07 PM)nouribenyahia كتب :
(25-12-21, 08:02 PM)عبد العزيز البسكري كتب :
(25-12-21, 05:57 PM)nouribenyahia كتب :
(25-12-21, 03:30 PM)عبد العزيز البسكري كتب :
أخي الكريم
يمكنني عمل ذلك و لكن بطريقة أخرى 
تحياتي

شكرا لك سي عبد العزيز على التفاعل 
كيف الطريقةبارك الله فيك

عملت لك طريقتين 
الأولى غير مباشرة يمكنك إختيار المنتج من خلال الكومبوبكس ثم إرسال بيانات التاكسات بوكس إلى الجريد كنترول
الطريقة الثانية .. و هي الطريقة المباشرة من خلال الإستعلام برمز الباركود و إستخلاص بقية البيانات و هي تقريبا طريقتك بالسؤال 
تحياتي
مشكور بارك الله فيك راح اجرب

الأولى عمليه و الثانية واقعية .. بارك الله فيك أخينا الأكبر مقاما عبد العزيز البسكري