تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ملأ جدولين من فورم واحد
#1
السلام عليكم... كيف حال الجميع ؟
عندي فورم 1 فيه جدول و بعض المعطيات و فورم ثاني و ثالث فيهم جدولين متشابهين في كل شيء
اريد مثلا عندما يكون الفورم ثاني مفتوح يتم ملأ جدول الفورم الثاني من الفورم الأول  و عندما يكون الفورم الثالث مفتوح يتم ملأ جدول الفورم الثالث كذلك من الفورم الاول دون تكرار الكود 
شكرا للجميع
الرد
تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة
#2
لا أعرف إن كنت قد اوصلت الفكرة او لا ؟
الرد
تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة
#3
نرجوا المساعدة اذ امكن ذلك
الرد
#4
وعليكم السلام...
تفضل:
كود :
  If Form2.ShowInTaskbar Then
         كود الحفظ في الجدول المراد
       End If
ملحوظة: يمكن إستبدال ShowInTaskbar ب showicon
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
#5
ليس هذا المراد المشكل ليس في معرفة اي فورم مفتوح
المشكل في كيف يمكنني ملأ داتا قريد فيو الفورم 2 او داتاقريد فيو الفورم 3 دون تكرار كتابة الكود بما ان نفس الداتا قريد الموجودة في الفورم 2 هي التي موجودة في الفورم 3
الرد
#6
السلام عليكم ورحمة الله وبركاته
اخي الكريم العربي
صدقا قرات سؤالك اكثر من مرة والمشكلة ان السؤال غير واضح وماتريده مبهم 
سافترض التالي : فتحت المشروع على الفورم 1 وفيه داتاغرايد فيو تم ملؤها من جدول وعندك داتاغرايد فيو في فورم 2 وتريد عند فتح الفورم 2 يتم ملءالداتا غرايد بنفس الداتا الموجودة في الغرايد العائدة للفورم 1 بدون ان تكتب كود في الفورم 2  اليس هذا ماتريد؟
ان كان ذلك هو ماتريد فقط في كود جلب البيانات واملائها في داتاغرايد الفورم الاول اضف سطرا أخر يملا الداتاغرايد الموجودة في الفورم 2 وعندما تفتح الفورم 2 ستجد ان الداتاغرايد تم ملؤها ايضا
كود :
' للفورم الاول
           Me.DataGridView1.DataSource = dt
           ' للفورم الثاني
           Form2.DataGridView1.DataSource = dt
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#7
أخي إبراهيم سوف أحاول تبسيط الفكرة (الفكرة بأكملها من أجل عدم كتابة الكود مرتين) يعني لم ارد كتابة مايلي مرة أكتب فورم 2 و مرة أكتب فورم 3 :

كود :
If Application.OpenForms().OfType(Of Form2).Any Then
           For NewRow As Integer = 0 To dt.Rows.Count - 1

               Form2.dgv_vente.Rows.Add()
               Form2.dgv_vente.CurrentCell = Form2.dgv_vente.Rows(Form2.dgv_vente.Rows.Count - 1).Cells(0)
               Dim i As Integer = Form2.dgv_vente.CurrentRow.Index

               Form2.dgv_vente.Item("id_v", i).Value = dt.Rows(i).Item("id")
               Form2.dgv_vente.Item("codeBar", i).Value = dt.Rows(i).Item("CodeBar")
               Form2.dgv_vente.Item("id_produit", i).Value = dt.Rows(i).Item("id_produit")
               Form2.dgv_vente.Item("nom_produit_v", i).Value = dt.Rows(i).Item("nom_produit")
               Form2.dgv_vente.Item("famille_produit_v", i).Value = dt.Rows(i).Item("famille_produit")
       Next    
      Else
       For NewRow As Integer = 0 To dt.Rows.Count - 1
        Form3.dgv_vente.Rows.Add()
               Form3.dgv_vente.CurrentCell = Form3.dgv_vente.Rows(Form3.dgv_vente.Rows.Count - 1).Cells(0)
               Dim i As Integer = Form3.dgv_vente.CurrentRow.Index

               Form3.dgv_vente.Item("id_v", i).Value = dt.Rows(i).Item("id")
               Form3.dgv_vente.Item("codeBar", i).Value = dt.Rows(i).Item("CodeBar")
               Form3.dgv_vente.Item("id_produit", i).Value = dt.Rows(i).Item("id_produit")
               Form3.dgv_vente.Item("nom_produit_v", i).Value = dt.Rows(i).Item("nom_produit")
               Form3.dgv_vente.Item("famille_produit_v", i).Value = dt.Rows(i).Item("famille_produit")
        Next
      End If


فكرت في كتابة هذا الكود لكن لم ينج


PHP كود :
dim frme
If Application.OpenForms().OfType(Of Form2).Any Then
frme 
= new form2
       
Else
frme =new form3 
End 
If
    For NewRow As Integer 0 To dt.Rows.Count 1

                frme
.dgv_vente.Rows.Add()
                frme.dgv_vente.CurrentCell frme.dgv_vente.Rows(frme.dgv_vente.Rows.Count 1).Cells(0)
                Dim i As Integer frme.dgv_vente.CurrentRow.Index
                
'rowindex = i

                frme.dgv_vente.Item("id_v", i).Value = dt.Rows(i).Item("id")
                frme.dgv_vente.Item("codeBar", i).Value = dt.Rows(i).Item("CodeBar")
                frme.dgv_vente.Item("id_produit", i).Value = dt.Rows(i).Item("id_produit")
                frme.dgv_vente.Item("nom_produit_v", i).Value = dt.Rows(i).Item("nom_produit")
                frme.dgv_vente.Item("famille_produit_v", i).Value = dt.Rows(i).Item("famille_produit") 
الرد
تم الشكر بواسطة: ابراهيم ايبو
#8
يمكنك وضع الكود في موديول وارسل له ما يلزم من اسم الداتاجريد وغيره
عندها فقط تحتاج لاستدعاءه في اي مكان في المشروع سواء فورم 2 او فورم 3

هذا مثال ترسل له اسم الداتاجريد فيو واسم الداتاتابل
PHP كود :
Public Sub fff(dgv As DataGridViewdt As DataTable)
   For NewRow As Integer 0 To dt.Rows.Count 1
       dgv
.Rows.Add()
       dgv.CurrentCell dgv.Rows(dgv.Rows.Count 1).Cells(0)
       Dim i As Integer dgv.CurrentRow.Index

       dgv
.Item("id_v"i).Value dt.Rows(i).Item("id")
       dgv.Item("codeBar"i).Value dt.Rows(i).Item("CodeBar")
       dgv.Item("id_produit"i).Value dt.Rows(i).Item("id_produit")
       dgv.Item("nom_produit_v"i).Value dt.Rows(i).Item("nom_produit")
       dgv.Item("famille_produit_v"i).Value dt.Rows(i).Item("famille_produit")
   Next
End Sub 

لكن لم لا تربط الداتاجريد فيو بالداتابل مباشره بسطر واحد في كل فورم مثل
dgv_vente.DataSource = dt
الرد
#9
السلام عليكم
بارك الله فيك اخي بلدي
سباق للخير والمساعدة
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#10
اخي بلدي بارك الله فيك
اخي ابراهيم ايبو ، اسامة الهرماوي بارك الله فيكم


عند إستدعاء الأجراء ماذا أضع بين قوسي الإجراء ؟
الرد
تم الشكر بواسطة: بلدي , Amir_Alzubidy , Amir_Alzubidy , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي طريقة إضافة اكثر من صورة دفعة واحد لمجلد الصور داخل المشروع وحفظ المسارات بـ sql العطر الرايق 13 447 10-11-20, 03:36 AM
آخر رد: سعود
  كيف أضيف مجموعة من الـ My.Setting مرة واحدة باسم واحد مع تغير اخر رقم ؟ PeterGhattas082460 4 373 11-10-20, 11:02 PM
آخر رد: abdou
  التحقق من فورم إذا كان موجود محمد خيري 6 355 02-10-20, 03:55 AM
آخر رد: عبد العزيز البسكري
  برنامج دمج ملفات المشروع في ملف تنفيذي واحد ابو محمد محمد محمد 6 950 27-09-20, 06:35 PM
آخر رد: Anas Mahmoud
  فورم تنبيه باقتراب التاريخ khaled Mohammed 1 237 21-09-20, 07:26 PM
آخر رد: Anas Mahmoud
  الحذف من جدولين khaled Mohammed 3 210 16-09-20, 06:31 PM
آخر رد: khaled Mohammed
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 476 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  طريقة عرض بيانات جدولين في الداتا قريد ZaerAllail 7 474 05-09-20, 01:44 PM
آخر رد: Anas Mahmoud
  [VB.NET] عمل transaction واحد في إجرائين مختلفين larbihamri 3 288 26-08-20, 12:04 AM
آخر رد: عبد العزيز البسكري
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 418 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم