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

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

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

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

بالفورم 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

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

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