تقييم الموضوع :
  • 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 كتب : ردود  شافية اضافت لي ولغيري الكثير
دائما مرجعنا في العلم
شكرا


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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب مجموع ما في الداتا جريد فيو لكل صف alshandodi 8 244 20-05-19, 05:37 PM
آخر رد: alshandodi
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 185 15-05-19, 06:08 PM
آخر رد: makky
  عمل استعلام بدلالة الصفوف المختارة من الداتا جريد makky 2 143 09-05-19, 05:11 PM
آخر رد: makky
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 49 03-05-19, 11:03 AM
آخر رد: DK-x
  [مثال] قاعدة بيانات SQL DK-x 2 115 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  سورس كود لوضع زر امر داخل الداتا جريد فيو احمد129 2 131 01-05-19, 12:45 PM
آخر رد: DK-x
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 89 27-04-19, 10:32 PM
آخر رد: saoud2
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 3 128 25-04-19, 04:21 PM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 162 25-04-19, 09:28 AM
آخر رد: elgokr
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 309 25-04-19, 09:26 AM
آخر رد: elgokr

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


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