22-04-19, 02:17 AM
السلام عليكم.اخواني لو سمحتم و من له الخبرة في تحويل الكود النقل بين 2 داتاجريد.بحثت و ما وجدت غير هذا المثال لكن للاسف هو بلغة C .الرجاء من يقدر يحولهولي للغة vb net مع جزيل الشكر.و بارك الله فيكم
22-04-19, 02:17 AM
22-04-19, 04:05 AM
مرحباً العيدروس
انت لا تحتاج الى هذا المرفق
فقط لنقل بيانات نت جاتا جريد الى اخر طبق الكود التالى
كود :
' تحديد عدد الاعمدة وتكوينها
DataGridView2.ColumnCount = DataGridView1.ColumnCount
' انشاء الاسماء لكل عمود
For ii As Integer = 0 To DataGridView1.ColumnCount - 1
DataGridView2.Columns(ii).Name = DataGridView1.Columns(ii).Name
Next
' انشاء الداتا بكل صف
For Each GetRows As DataGridViewRow In DataGridView1.Rows
DataGridView2.Rows.Add(GetRows)
Nextالكود بالاعلى فى حالة ان الداتا جريد 2 فارغة بدون اعمدة كلياً
وفى حالة تصميم الداتا جريد من الاعمدة موجودة وكل ما تحتاج اله هو نقل الداتا فقط
فكل ما عليك تطبيق الكود التالى
كود :
' انشاء الداتا بكل صف
For Each GetRows As DataGridViewRow In DataGridView1.Rows
DataGridView2.Rows.Add(GetRows)
Nextوبكده انت تمكنت من نقل الداتا
اذا كان كلياً او جزئياً
واذا احببت كود بطريقة ثانية فى تكوين الاعمدة ونقل البيانات
فاليك الكود التالى
كود :
' انشاء الاعمدة وبيانتها
For Each GetColumns As DataGridViewColumn In DataGridView1.Columns
DataGridView2.Columns.Add(GetColumns)
Next
' انشاء الداتا بكل صف
For Each GetRows As DataGridViewRow In DataGridView1.Rows
DataGridView2.Rows.Add(GetRows)
Nextتحياتى لك
وتمنياتى لك التوفيق
22-04-19, 04:18 PM
الله يكرمك و يسترك اخي elgokr و يبارك فيك.لكن و الله ما عرفت اضبطها.لو سمحت بعد اذنك اخي تشوف المرفق .انا اريد لما اشيّك على صف من الداتاجريد1 تنبهني رسالة بالنقل و لما اضغط بالمسج نعم ينحذف تماما من الداتاجريد 1 و يتنقل الى الداتاجريد2.بارك الله فيك اخي حاولت لكن ما قدرت اسويها . و يلي تشوفو مناسب للتشييك button او checkbox
23-04-19, 02:14 AM
مرحباً اخى العيدروس
مرفق بالرد السورس + برنامج للاختبار
لطريقة نقل الداتا من جريد 1 الى جريد 2
وكذلك العكس بدون اى مشكلة او عناء
تحياتى لك
وتمنياتى لك التوفيق
23-04-19, 03:17 AM
صح اخي elgokr بدون اي مشكلة او عناء و براحة تامة يتم النقل. بحثت ووجدت امثلة كثير لكن بصراحة مثالك فاق الجميع ربنا يبارك فيك.بقيت لي اخي نقطة اخيرة بعد اذنك لو ممكن يكون messagebox اذا السطر مو عليه علامة تشيك بكس مو متشيّك لا يتم النقل و تظهر رسالة بان السطر لم يتم التعليم بتشيك بكس للأمان فقط عند النقل و بارك الله فيك
23-04-19, 03:55 AM
مرحباً اخى العيدروس
فقط تعال عند هذا السطر من الكود التحقق الخاص بـ
كود :
If DataGridView1.Rows(ii).Cells(4).Value Thenالموجود بحدث Button1_Click
وكذلك عند السطر من الكود التحقق الخاص بـكود :
If DataGridView2.Rows(ii).Cells(4).Value Thenوالموجود بحدث Button2_Click
واضف له فقط
كود :
Else
MsgBox("الرسالة")ليصبح الكود بهذا الشكل
كود :
If DataGridView1.Rows(ii).Cells(4).Value Then
DataGridView2.Rows.Item(ii).Visible = True
DataGridView1.Rows.Item(ii).Visible = False
DataGridView1.Rows(ii).Cells(4).Value = False
DataGridView2.Rows(ii).Cells(4).Value = False
Else
MsgBox("الرسالة")
End Ifو
كود :
If DataGridView2.Rows(ii).Cells(4).Value Then
DataGridView1.Rows.Item(ii).Visible = True
DataGridView2.Rows.Item(ii).Visible = False
DataGridView1.Rows(ii).Cells(4).Value = False
DataGridView2.Rows(ii).Cells(4).Value = False
Else
MsgBox("الرسالة")
End Ifتحياتى لك
وتمنياتى لك التوفيق
23-04-19, 04:19 AM
شكرا اخي انا غيرت الكود هكذا
لكن المشكلة بمجرد الضغط على اي صف للنقل بدون تشييك يظهر 12 مسج بكس و لو فيه 20 سطر يظهر 20 مسج بكس متتالية
يعني لو نويت انقل صف بدون تشييك يطلعلي مسجات بكس بقدر عدد السطور
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' نقل الداتا من جريد 1 الى جريد 2
'For ii As Integer = DataGridView1.RowCount - 1 To 0 Step -1
' If DataGridView1.Rows(ii).Cells(4).Value Then
' DataGridView2.Rows.Item(ii).Visible = True
' DataGridView1.Rows.Item(ii).Visible = False
' DataGridView1.Rows(ii).Cells(4).Value = False
' DataGridView2.Rows(ii).Cells(4).Value = False
' End If
'Next
For ii As Integer = DataGridView1.RowCount - 1 To 0 Step -1
If DataGridView1.Rows(ii).Cells(4).Value Then
DataGridView2.Rows.Item(ii).Visible = True
DataGridView1.Rows.Item(ii).Visible = False
DataGridView1.Rows(ii).Cells(4).Value = False
DataGridView2.Rows(ii).Cells(4).Value = False
Else
MsgBox("انتبه يجب التاكيد بوضع علامة التشيك بكس")
End If
Next
End Subيعني لو نويت انقل صف بدون تشييك يطلعلي مسجات بكس بقدر عدد السطور
23-04-19, 11:46 AM
(23-04-19, 03:17 AM)العيدروس كتب : [ -> ] لو ممكن يكون messagebox اذا السطر مو عليه علامة تشيك بكس مو متشيّك لا يتم النقل و تظهر رسالة بان السطر لم يتم التعليم بتشيك بكس للأمان فقط عند النقل و بارك الله فيك
بخصوص الرسالة المتعددة بعدد جميع ما لم يتم
نقل البيانات من جريد الى اخر فانظر الى طلبك فى ردك السابق
الا اذا كنت تريد فقط رسالة واحدة بنهاية الامر بعدد ما لم يتم نقله فاليك التالى
تعال على حدث Button1_Click
واستبدل ما به بهذا الكودكود :
' نقل الداتا من جريد 1 الى جريد 2
Dim TotalMsg As Integer = 0
For ii As Integer = DataGridView1.RowCount - 1 To 0 Step -1
If DataGridView1.Rows.Item(ii).Visible = True Then
If DataGridView1.Rows(ii).Cells(4).Value Then
DataGridView2.Rows.Item(ii).Visible = True
DataGridView1.Rows.Item(ii).Visible = False
DataGridView1.Rows(ii).Cells(4).Value = False
DataGridView2.Rows(ii).Cells(4).Value = False
Else
TotalMsg += 1
End If
End If
Next
If TotalMsg <> 0 Then MsgBox("لديك عدد " & TotalMsg & " من البيانات التى لم تتم نقلها.")تعال على حدث Button2_Click
واستبدل ما به بهذا الكودكود :
' نقل الداتا من جريد 2 الى جريد 1
Dim TotalMsg As Integer = 0
For ii As Integer = DataGridView2.RowCount - 1 To 0 Step -1
If DataGridView2.Rows.Item(ii).Visible = True Then
If DataGridView2.Rows(ii).Cells(4).Value Then
DataGridView1.Rows.Item(ii).Visible = True
DataGridView2.Rows.Item(ii).Visible = False
DataGridView1.Rows(ii).Cells(4).Value = False
DataGridView2.Rows(ii).Cells(4).Value = False
Else
TotalMsg += 1
End If
End If
Next
If TotalMsg <> 0 Then MsgBox("لديك عدد " & TotalMsg & " من البيانات التى لم تتم نقلها.")وبنهاية النقل اذا وجد شئ لم يتم نقله
سيتم عرض رسالة بالعدد
تحياتى لك
وتمنياتى لك التوفيق
23-04-19, 02:25 PM
10/10 اخي elgokr لا اعرف كيف اشكرك .ربنا يجزيك كل خير و يعطيك ما تتمنى ان شاء الله.تم التقييم
24-04-19, 05:08 AM
الشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق