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


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#2
عليكم السلام ورحمة الله وبركاته
أذا أمكن أن ترفق مشروع كمثال وابشر بالخير
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#3
السّلام عليكم و رحمة الله و بركاته
إضافة لما تقدّم به الأخ الغالي محمد العامر بارك الله فيه و له و جزاه خير الجزاء
للقيام بهذه المسألة .. يستحسن القيام بما يلي ..
بالفورم 2 .. نقوم بإضافة ما يسمّى RepositoryItemButtonEdit1
كيف نعملها يا غالي ؟
شوف هذا الفيديو و لواحقه لأستاذنا ملهم الصويعي بارك الله فيه و له و جزاه خير الجزاء
بعد ذلك .. بالفورم 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

مكتبة الديف إكسبرس و أمثلتها ينتج عنها الحجم الكبير للملف ممّا تعذر وضع المثال
تحياتي و إحتراماتي
الرد
تم الشكر بواسطة: asemshahen5
#4
الف الف الف شكر يا استاذنا القدير والعزير / عبد العزيز البسكري
كما اشكر الاخوة الذين تم التعريف بهم .
واسال الله تعالي ان يجعل هذه الاعمال في موازين حسناتكم.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن تقارير الديف اكسبريس محمد بن عطية 1 1,385 18-11-19, 01:03 PM
آخر رد: محمد بن عطية

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


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