السلام عليكم ورحمة الله وبركاته
عندي اداتين داتا جريد فيو dgv1 dgv2
انا في بداية تشغيل الفورم كتبت كود لملء dgv1 بكل سجلات قواعد البيانات
dp = New oledbDataAdapter("select * from tb", cn)
dp.Fill(ds, "tb")
dgv1.DataSource = ds.Tables("tb")
المطلوب في اداة الجريد فيو الثانية اعرض السجل الثاني فقط في نفس الوقت يكون موجود في الجريدة الاولى كل السجلات
حاولت التغيير في الكود ده dgv2.DataSource = ds.Tables("tb")
وما فلحت
(08-01-16, 01:29 PM)tarek كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
عندي اداتين داتا جريد فيو dgv1 dgv2
انا في بداية تشغيل الفورم كتبت كود لملء dgv1 بكل سجلات قواعد البيانات
dp = New oledbDataAdapter("select * from tb", cn)
dp.Fill(ds, "tb")
dgv1.DataSource = ds.Tables("tb")
المطلوب في اداة الجريد فيو الثانية اعرض السجل الثاني فقط في نفس الوقت يكون موجود في الجريدة الاولى كل السجلات
وعليكم السلام ورحمة الله وبركاته
الآن بعد ما ادرجت البيانات في القريد فيو رقم 1
تضع الكود التالي :
كود :
dgv2.Columns.Clear()
مسح جميع حقول الداتا قريد رقم 2
For Each col As DataGridViewColumn In dgv1.Columns
dgv2.Columns.Add(col.Name, col.HeaderText)
Next
نقوم بملء الداتا قريد رقم 2 باسماء الحقول (العناوين) من الداتا قريد رقم 1
dgv1.Rows(1).Selected = True
نقوم بتحديد السطر المراد ادراجه في الداتا قريد رقم 2 من الداتا قريد رقم 1 علماً السطر الاول يساوي صفر والسطر الثاني يساوي 1 وهكذا
Dim dr As New System.Windows.Forms.DataGridViewRow
For Each dr In Me.dgv1.SelectedRows
dgv2.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value, dr.Cells(2).Value)
Next
الكود المسئول بنقل محتوى السطر الثاني من الداتا قريد رقم 1 إلى الداتا قريد رقم 2