[رضوان الجماعي]

(02-11-18, 06:24 PM)elgokr كتب : فى البداية اذا كان الـ 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

تحياتى لك

وتمنياتى لك التوفيق

جزيل الشكر ردود غايه بالوضوح اتمنى لك السعاده