منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم  أحبتي 

المطلوب  كود  فيجوال  VB   لجعل   TEXTBOX     تساوي datagridview  عند  الضغط  على حقل  في  datagridview    يعني  كل  ما اضغط على حقل تتغير   البيانات ....في التاكست بوكس ........


وشكرا  مسبقا
السلام عليكم ورحمة الله وبركاته
اخي الكريم في الحدث التالي
كود :
 Private Sub dgv_table_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_table.CellContentClick
       Try

           Txt_CV_ID.Text = dgv_table.CurrentRow.Cells(0).Value.ToString()
           Txt_CV_Name.Text = dgv_table.CurrentRow.Cells(1).Value.ToString()
           CComboBox1.Text = dgv_table.CurrentRow.Cells(2).Value.ToString()

       Catch ex As Exception
           Return
       End Try
   End Sub
غير اسم الداتاغرايد واسماء التكست بوكس او الكومبوبوكس
(14-08-21, 07:22 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم في الحدث التالي
كود :
 Private Sub dgv_table_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_table.CellContentClick
       Try

           Txt_CV_ID.Text = dgv_table.CurrentRow.Cells(0).Value.ToString()
           Txt_CV_Name.Text = dgv_table.CurrentRow.Cells(1).Value.ToString()
           CComboBox1.Text = dgv_table.CurrentRow.Cells(2).Value.ToString()

       Catch ex As Exception
           Return
       End Try
   End Sub
غير اسم الداتاغرايد واسماء التكست بوكس او الكومبوبوكس

شكرا   اخي  الكريم   .....لكن عند  استعمال  الاسهم   نزولا وصعودا    لا يتغير محتوى التاكست بوكس
السلام عليكم ورحمة الله وبركاته
اخي انت طلبت عند النقر اما ان تتغير مع الاسهم 
استخدم الحدث SelectionChanged 
كود :
Private Sub dgv_table_SelectionChanged(sender As Object, e As EventArgs) Handles dgv_table.SelectionChanged
       Try

           Txt_CV_ID.Text = dgv_table.CurrentRow.Cells(0).Value.ToString()
           Txt_CV_Name.Text = dgv_table.CurrentRow.Cells(1).Value.ToString()
           ComboBox1.Text = dgv_table.CurrentRow.Cells(2).Value.ToString()
       
       Catch ex As Exception
           Return
       End Try
   End Sub
[quote pid='176124' dateline='1628957181']
نسال  الله لك  الرضى   ورفقة الرسول عليه الصلاة والسلام  في الجنة...تحياتي  
[/quote]
الحمد لله والشكر لله
ولك اخي الكريم Bilgacim
ولك ايضا مثل مادعوت لي واكثر بارك الله فيك ولك