+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=33369)
مشكلة في الداتا جريد - bassant - 11-02-20
عندي مشكلة تظهر في الداتا جريد
عند الضغط على صف في الداتا جريد احيان يظهر بيانات الصف اللي في الأسفل وليس الصف الذي تم الضغط عليه وذلك على الرغم من عدم وجود timer
ارجو الإفادة وشكرا
RE: مشكلة في الداتا جريد - اسامه الهرماوي - 11-02-20
السلام عليكم...
ممكن الكود المستخدم لتصحيحة.
RE: مشكلة في الداتا جريد - bassant - 12-02-20
(11-02-20, 06:27 PM)اسامه الهرماوي كتب : السلام عليكم...
ممكن الكود المستخدم لتصحيحة.
On Error Resume Next
Dim xl As Integer
xl = DataGridView1.CurrentRow.Index
TextBox10.Text = CStr(DataGridView1.Rows(xl).Cells(0).Value)
TextBox17.Text = CStr(DataGridView1.Rows(xl).Cells(1).Value)
TextBox2.Text = CStr(DataGridView1.Rows(xl).Cells(2).Value)
DateTimePicker3.Text = DataGridView1.Rows(xl).Cells(3).Value
RE: مشكلة في الداتا جريد - bassant - 12-02-20
(11-02-20, 06:27 PM)اسامه الهرماوي كتب : السلام عليكم...
ممكن الكود المستخدم لتصحيحة.
Dim xl As Integer
xl = DataGridView1.CurrentRow.Index
TextBox10.Text = CStr(DataGridView1.Rows(xl).Cells(0).Value)
TextBox17.Text = CStr(DataGridView1.Rows(xl).Cells(1).Value)
TextBox2.Text = CStr(DataGridView1.Rows(xl).Cells(2).Value)
DateTimePicker3.Text = DataGridView1.Rows(xl).Cells(3).Value
RE: مشكلة في الداتا جريد - alsalamoni - 12-02-20
(12-02-20, 02:24 PM)bassant كتب :(11-02-20, 06:27 PM)اسامه الهرماوي كتب : السلام عليكم...
ممكن الكود المستخدم لتصحيحة.
Dim xl As Integer
xl = DataGridView1.CurrentRow.Index
TextBox10.Text = CStr(DataGridView1.Rows(xl).Cells(0).Value)
TextBox17.Text = CStr(DataGridView1.Rows(xl).Cells(1).Value)
TextBox2.Text = CStr(DataGridView1.Rows(xl).Cells(2).Value)
DateTimePicker3.Text = DataGridView1.Rows(xl).Cells(3).Value
كود :
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Dim r = DataGridView1.CurrentRow
If r IsNot Nothing Then
TextBox10.Text = CStr(r.Cells(0).Value)
TextBox17.Text = CStr(r.Cells(1).Value)
TextBox2.Text = CStr(r.Cells(2).Value)
If IsDate(r.Cells(3).Value.ToString) Then
DateTimePicker3.Value = CDate(r.Cells(3).Value.ToString)
End If
End If
End Sub