+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نقل من الداتا 1 إلى الداتاغريد 2 (/showthread.php?tid=24741)
نقل من الداتا 1 إلى الداتاغريد 2 - حافظ حافظ - 01-05-18
السلام عليكم . اخواني لو سمحتو كيف يمكن اضافة عنصر التشيك بوكس و نقل من الداتاجريد1 و الداتا جريد2.بحيث احدد السطر يلي بدي انقلو من الداتاجريد1 الى الداتاجريد2 و العكس لما بدي ارجعو من الداتاجريد2 الى الداتا2
بارك الله فيكم على تعبكم وجزاكم الهنا خيراته و بركاته
RE: نقل من الداتا 1 إلى الداتاغريد 2 - سعود - 01-05-18
اكواد الفورم لود بعد التعديل
PHP كود :
conn2018.open()
Dim DepCom As New OleDbCommand("Select * From Factory", conn2018)
Dim DepAdap As New OleDbDataAdapter(DepCom)
Dim DepDT As New DataTable
DepAdap.Fill(DepDT)
DataGridView1.DataSource = DepDT
Dim col As New DataGridViewCheckBoxColumn
col.HeaderText = "تحديد"
DataGridView1.Columns.Add(col)
PHP كود :
DataGridView2.Rows.Clear()
DataGridView2.ColumnCount = 4
For r As Integer = 0 To DataGridView1.Rows.Count - 1
Dim check As Boolean = CType(DataGridView1.Rows(r).Cells(4).Value, Boolean)
If check = True Then
Dim itm0 As String = DataGridView1.Rows(r).Cells(0).Value
Dim itm1 As String = DataGridView1.Rows(r).Cells(1).Value
Dim itm2 As String = DataGridView1.Rows(r).Cells(2).Value
Dim itm3 As String = DataGridView1.Rows(r).Cells(3).Value
DataGridView2.Rows.Add(itm0, itm1, itm2, itm3)
End If
Next
RE: نقل من الداتا 1 إلى الداتاغريد 2 - حافظ حافظ - 02-05-18
شكرا استاذ سعود.ربنا يكرمك ان شاء الله.هو المطلوب يعطيك العافية.