[نايف 2006]

السلام عليكم ورحمة الله وبركاته .
أيها الإخوة الكرام عندي مشكلة في نقل البيانات من الفورم ا
الى الفورم 2
ومعضلتي الاتي :
-------------------------------------------
لفورم  1
يوجد فيه أداة GridControl1
تحتوي البيانات على :
الاسم :
تاريخ الميلاد:
وقت الميلاد:
 
اريد عندما أقوم بالضغط على
امر التعديل SimpleButton1
نقل البيانات الى الفوم 2  لتعديل بيانات
الشخص المحددة في الأداة GridControl1.
-------------------------------------------
الفوم 2
يوجد فيه أداة
TextEdit1 الاسم:
DateTimePicker1 تاريخ الميلاد :
DateTimePicker2 وقت الولادة :
-------------------------------------------
جزيل الشكر والتقدير لكل من ساعدني واسال الله ان يفتح  عليه ويبارك فيه وان يزيده علما .

[محمد العامر]

عليكم السلام ورحمة الله وبركاته
أذا أمكن أن ترفق مشروع كمثال وابشر بالخير

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إضافة لما تقدّم به الأخ الغالي محمد العامر بارك الله فيه و له و جزاه خير الجزاء

للقيام بهذه المسألة .. يستحسن القيام بما يلي ..

بالفورم 2 .. نقوم بإضافة ما يسمّى RepositoryItemButtonEdit1

كيف نعملها يا غالي ؟

شوف هذا الفيديو و لواحقه لأستاذنا ملهم الصويعي بارك الله فيه و له و جزاه خير الجزاء

https://www.youtube.com/watch?v=3joBvBBxFb8

بعد ذلك .. بالفورم 2 دائما .. نضع هذا الكود كمثال ..

كود :

   Private Sub RepositoryItemButtonEdit1_Click(sender As Object, e As EventArgs) Handles RepositoryItemButtonEdit1.Click
       Try
           Form1.TextBox1.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "MOWAKKAL_Name").ToString
           Form1.DateTimePicker1.EditValue = Format(GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "MOWAKKAL_Date_Naissance"), "yyyy-MM-dd")
           Form1.TextBox2.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "MOWAKKAL_Lieu_Naissance").ToString
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
       animateWin(Me, False)
       Me.Dispose()
   End Sub

طبعا الجريد كنترول 1 بالفورم 2 يتم تعبئته .. التعبئة العادية ..

كود :

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Call Sondoss_Connection()

       Dim DT As New DataTable
       Dim DA As New SqlClient.SqlDataAdapter
       DT.Clear()
       DA = New SqlClient.SqlDataAdapter("SELECT MOWAKKAL_Code , MOWAKKAL_Name, MOWAKKAL_Date_Naissance, MOWAKKAL_Lieu_Naissance  From TBL_MOWAKKAL", Conne_2020)
       DA.Fill(DT)
       GridControl1.DataSource = DT
     End Sub

مكتبة الديف إكسبرس و أمثلتها ينتج عنها الحجم الكبير للملف ممّا تعذر وضع المثال

تحياتي و إحتراماتي

[نايف 2006]

الف الف الف شكر يا استاذنا القدير والعزير / عبد العزيز البسكري
كما اشكر الاخوة الذين تم التعريف بهم .
واسال الله تعالي ان يجعل هذه الاعمال في موازين حسناتكم.