منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار في الداتا جريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار في الداتا جريد (/showthread.php?tid=32369)

استفسار في الداتا جريد - nourmandour - 05-12-19

بعد انكم 
انا كونت في الفيجوال 6 كونت بتحرك بالزرار الكيبورد ليفق  و لتحت  في الداتا جريد وكانت عندما إضغط علي انتر انقل بيانات الصف الي التكست اذي  اعملها في الفيجوال نت ولكم جزيل الشكر

RE: استفسار في الداتا جريد - اسامه الهرماوي - 06-12-19

السلام عليكم...
إستخدم هذا الكود:
وإن أردت أن تستخدم أرقام الحقول فقم بازالة علامتي التنصيص ليكون هكذا  (1)
كود :
Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles datagridview1.KeyDown
       If e.KeyValue = Keys.Enter Then
     t1.Text = .CurrentRow.Cells("اسم الحقل").Value.ToString()       
       End If
   End Sub


RE: استفسار في الداتا جريد - nourmandour - 06-12-19

(06-12-19, 02:38 AM)اسامه الهرماوي كتب : السلام عليكم...
إستخدم هذا الكود:
وإن أردت أن تستخدم أرقام الحقول فقم بازالة علامتي التنصيص ليكون هكذا  (1)
كود :
Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles datagridview1.KeyDown
       If e.KeyValue = Keys.Enter Then
     t1.Text = .CurrentRow.Cells("اسم الحقل").Value.ToString()       
       End If
   End Sub

الف شكر يا معالي الباشا تمت بنجاح