السلام عليكم
ازاى اعمل نقل لصف فى داتا جريد فيو متصلة بقاعدة بيانات اكسيس الى داتا جريد فبو فارغة فى فورم اخر واذا رغبت فى اعادتها الى مكانها الاول يمكننى ذلك
(25-12-18, 08:02 PM)احمد خطاب كتب : [ -> ]السلام عليكم
ازاى اعمل نقل لصف فى داتا جريد فيو متصلة بقاعدة بيانات اكسيس الى داتا جريد فبو فارغة فى فورم اخر واذا رغبت فى اعادتها الى مكانها الاول يمكننى ذلك
وعليكم السلام ،،
هل الداتاقريدفيو 2 والداتاقريدفيو 1 ،، الأعمدة متساوية (بمعنى مثل بعض)
السلام عليكم اخى الفاضل
نعم متساويين
الداتاقريدفيو1 يوجد بها صفوف ،، وتريد عند النقر على الصف ينقلها إلى الداتاقريدفيو2
'هذا السطر مهمته لو الداتاقريدفيو1 فارغة من الصفوف يتجاهل تنفيذ وتكملة الكود :
كود :
If DataGridView1.Rows.Count = 1 Or Nothing Then Exit Sub
'هذا الكود مهمته لو الداتاقريدفيو2 فارغة من الاعمدة يقوم بإنشاء الاعمدة كما هي في الداتاقريدفيو1 :
كود :
If DataGridView2.Columns.Count = 0 Then
For Each cell As DataGridViewColumn In DataGridView1.Columns
DataGridView2.Columns.Add(DirectCast(cell.Clone, DataGridViewColumn))
Next
End If
'هذا السطر مهمته ينقل الصف المحدد من الداتاقريدفيو1 إلى الداتاقريدفيو2
كود :
DataGridView2.Rows.Add(DataGridView1.CurrentRow.Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray)
السلام عليكم صديقى العزيز
اشكر حضرتك شكر خاص جزاك الله عنى كل الخير وكل الجزاء الجميل