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


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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] داتا جريد فيو M.SOFT 0 44 08-12-18, 03:51 PM
آخر رد: M.SOFT
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 66 08-12-18, 02:22 PM
آخر رد: nandy2016
  تغيير لغة الجداول فى الداتا جريد احمد خطاب 3 85 06-12-18, 09:27 PM
آخر رد: Emam emam
  [VB.NET] حفظ بيانات في جدولين kah1974 0 45 05-12-18, 11:44 PM
آخر رد: kah1974
  [كود] إدراج بيانات من الجريد إلى أكسس motazsaad94@gmail.com 3 74 05-12-18, 05:44 PM
آخر رد: motazsaad94@gmail.com
  سؤال بخصوص الكتابة داخل داتا جريد احمد خطاب 3 85 05-12-18, 11:35 AM
آخر رد: احمد خطاب
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 0 108 04-12-18, 11:52 PM
آخر رد: abo ragab
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 83 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  [VB.NET] سؤال عن الداتا جريد فيو M.SOFT 1 67 04-12-18, 04:31 AM
آخر رد: محمد كريّم
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 58 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha

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


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