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


        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("counters").Value > 0 Then
                row = tempTable.NewRow
                row("كود الصنف") = DataGridView1.Rows(i).Cells("itcod").Value
                row("المجموعة") = DataGridView1.Rows(i).Cells("gname").Value
                row("اسم الصنف") = DataGridView1.Rows(i).Cells("invsun").Value
                row("الكمية") = DataGridView1.Rows(i).Cells("counters").Value
                row("السعر") = DataGridView1.Rows(i).Cells("sprice").Value
                row("الاجمالي") = DataGridView1.Rows(i).Cells("netsal").Value
                row("كود") = DataGridView1.Rows(i).Cells("makas").Value
                row("رصيد") = DataGridView1.Rows(i).Cells("raseedakher").Value

                tempTable.Rows.Add(row)
            End If
 
            DataGridView2.Columns(7).Width = 50
            DataGridView2.Columns(8).Width = 50
        Next
        DataGridView2.DataSource = tempTable
الرد
تم الشكر بواسطة:
#2
فى البداية اذا كان الـ DataGridView1
تحتوى على بيانات من خلال كود الاستعلام او ما شبه مثل DataTable او DataSet
اى انه لم يتم تعبئته يدوياً فكل ما ستفعله هو التالى
كود :
DataGridView2.DataSource = DataGridView1.DataSource

طيب واذا كان التعبئة تتم يدوياً
فيوجد طرق كثيرة ومنها الطريقة التالية
كود :
       DataGridView2.ColumnCount = DataGridView1.ColumnCount
       For ii As Integer = 0 To DataGridView1.ColumnCount - 1
           DataGridView2.Columns(ii).Name = DataGridView1.Columns(ii).Name
       Next
       Dim row As String()
       For ii As Integer = 0 To DataGridView1.RowCount - 1
           row = New String() {DataGridView1.Rows(ii).Cells(0).Value, DataGridView1.Rows(ii).Cells(1).Value, DataGridView1.Rows(ii).Cells(2).Value}
           DataGridView2.Rows.Add(row)
       Next

كود المثال عبارة عن بيانات 3 اعمدة اذا كان لديك اكثر فكل ما عليك التعديل على هذا السطر
كود :
           row = New String() {DataGridView1.Rows(ii).Cells(0).Value, DataGridView1.Rows(ii).Cells(1).Value, DataGridView1.Rows(ii).Cells(2).Value}

ليتحول الى 4 بهذا الشكل
كود :
           row = New String() {DataGridView1.Rows(ii).Cells(0).Value, DataGridView1.Rows(ii).Cells(1).Value, DataGridView1.Rows(ii).Cells(2).Value, DataGridView1.Rows(ii).Cells(3).Value}

ويصبح بيانات عمودين فقط بهذا الشكل
كود :
           row = New String() {DataGridView1.Rows(ii).Cells(0).Value, DataGridView1.Rows(ii).Cells(1).Value}

اتمنى ام تكون الصورة كملت لك كلياً

كما يمكنك ان تجعل الكود بهذا الشكل دون الحاجة الى اى تعديلات 
او اضافات وهو سيقوم بجلب جميع البيانات تلقائي
كود :
       DataGridView2.ColumnCount = DataGridView1.ColumnCount
       For ii As Integer = 0 To DataGridView1.ColumnCount - 1
           DataGridView2.Columns(ii).Name = DataGridView1.Columns(ii).Name
       Next
       Dim row As String()
       For ii As Integer = 0 To DataGridView1.RowCount - 1
           row = New String() {}
           For i As Integer = 0 To DataGridView1.ColumnCount - 1
               row(i) = DataGridView1.Rows(ii).Cells(i).Value
           Next
           DataGridView2.Rows.Add(row)
       Next

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#3
ردود  شافية اضافت لي ولغيري الكثير
دائما مرجعنا في العلم
شكرا
الرد
تم الشكر بواسطة: elgokr , elgokr
#4
(03-11-18, 11:55 AM)atefkhalf2004 كتب : ردود  شافية اضافت لي ولغيري الكثير
دائما مرجعنا في العلم
شكرا


الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استدعاء بيانات العميل الى جدول الفاتورة mostafa nada 8 171 19-02-19, 11:54 AM
آخر رد: asemshahen5
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 4 365 17-02-19, 02:31 PM
آخر رد: sendbad100
  سؤال فى صفوف الداتا جريد فيو احمد خطاب 1 78 07-02-19, 03:51 AM
آخر رد: حريف برمجة
  عرض بيانات في الليست فيو Emam emam 5 150 01-02-19, 11:13 PM
آخر رد: asemshahen5
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 273 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  [VB.NET] مشكلة في تصدير بيانات الى إكسيل محمد بوقزاحة 3 135 26-01-19, 11:29 PM
آخر رد: محمد بوقزاحة
  [VB.NET] تصدير بيانات من DGV الى ملف اكسيل محمد بوقزاحة 1 97 24-01-19, 03:52 PM
آخر رد: sendbad100
  قسمة صف فى داتا جريد فيو nabil.1710 1 104 24-01-19, 03:31 AM
آخر رد: حريف برمجة
  جلب بيانات الموظفين من جهاز البصمة الاحيائية ibraheam 12 1,979 23-01-19, 07:21 PM
آخر رد: elgokr
  شرط ديتا جريد فيو dasktop 1 83 20-01-19, 01:00 PM
آخر رد: sendbad100

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


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