+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32633)
سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - Emam emam - 22-12-19
السلام عليكم
عندي داتا جريد فيو يتم فيها عرض الموظفين
وعند تحديد موظف معين والضغط علي بوتن الحدف يتم حدف الموظف
ثم يرجع المؤشر علي اول صف في الداتا جريد فيو
ولكن اريد ان يكون المؤشر علي اخر صف في داتا جريد فيو
RE: سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - asemshahen5 - 22-12-19
كود تحديد من فظلكم .
RE: سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - Emam emam - 22-12-19
(22-12-19, 12:08 PM)asemshahen5 كتب : كود تحديد من فظلكم .
اشكرك اخي شكرا كثيرا
زهبت للموضوع واخزت منه هدا الكود
PHP كود :
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.ClearSelection()
For I = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.CurrentRow.Cells(0).Value Then
DataGridView1.Rows(I).Selected = True
End If
Next
ولكن يقوم بتحديد كل مافي الداتا جريد فيو
ارجو التعديل عليه ليقوم بتحديد اخر صف بعد عملية الحدف
بارك الله فيك
وجزاكم الله خيرا
RE: سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - asemshahen5 - 22-12-19
PHP كود :
Dim LastRow As Integer = 0
If DataGridView1.AllowUserToAddRows = True Then
LastRow = DataGridView1.Rows.Count - 2
Else
LastRow = DataGridView1.Rows.Count - 1
End If
DataGridView1.Rows(LastRow).Selected = True
DataGridView1.CurrentCell = DataGridView1.Rows(LastRow).Cells(0)
RE: سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - Emam emam - 22-12-19
(22-12-19, 05:10 PM)asemshahen5 كتب :PHP كود :
Dim LastRow As Integer = 0
If DataGridView1.AllowUserToAddRows = True Then
LastRow = DataGridView1.Rows.Count - 2
Else
LastRow = DataGridView1.Rows.Count - 1
End If
DataGridView1.Rows(LastRow).Selected = True
DataGridView1.CurrentCell = DataGridView1.Rows(LastRow).Cells(0)
كالعاده اخي عاصم
يعجز لساني عن شكرك
ولا اقول الا انك مبدع
جزاك الله خير الجزاء
الكود اشتغل تمام الحمد لله
معلش اخي عاصم عندي استفسار اخر
هل ينفع اني اجعل المؤشر يحدد الصف الدي هو قبل او بعد الصف اللي انا حدفته
يعني لو حدفت الصف الثالث يقوم بتحديد الصف الرابع وان لم يكن هناك صف رابع يقوم بتحديد الثالث وهكدا ؟
سامحني اخي علي كثرة اسئلتي
جعله الله في ميزان حسناتك
RE: سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - asemshahen5 - 22-12-19
تفضل هذا الكود و انشاء الله به ما تريد .
PHP كود :
'ضع هذا الكود قبل زر الحذف'
Dim LastRow As Integer = 0
If Dgv_Table.CurrentRow.Cells(0).Value Is Nothing Or Dgv_Table.CurrentRow.Cells(0).Value = "" Or Dgv_Table.CurrentRow.IsNewRow = True Then
LastRow = Dgv_Table.CurrentRow.Index - 1
Else
LastRow = Dgv_Table.CurrentRow.Index + 1
End If
'ضع هذا الكود بعد كود الحذف'
Dgv_Table.Rows(LastRow).Selected = True
Dgv_Table.CurrentCell = Dgv_Table.Rows(LastRow).Cells(0)
RE: سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - Emam emam - 23-12-19
(22-12-19, 05:48 PM)asemshahen5 كتب : تفضل هذا الكود و انشاء الله به ما تريد .تسلم ياغالي
PHP كود :
'ضع هذا الكود قبل زر الحذف'
Dim LastRow As Integer = 0
If Dgv_Table.CurrentRow.Cells(0).Value Is Nothing Or Dgv_Table.CurrentRow.Cells(0).Value = "" Or Dgv_Table.CurrentRow.IsNewRow = True Then
LastRow = Dgv_Table.CurrentRow.Index - 1
Else
LastRow = Dgv_Table.CurrentRow.Index + 1
End If
'ضع هذا الكود بعد كود الحذف'
Dgv_Table.Rows(LastRow).Selected = True
Dgv_Table.CurrentCell = Dgv_Table.Rows(LastRow).Cells(0)
الكود اشتغل كويس ادا كان الصف المحدد هو الاول او في المنتصف
ولكن ادا كان الصف المحدد هو الصف الاخير يحدث الخطأ الاتي
[attachment=23741]
RE: سؤال في وضع المؤشر علي اخر صف في الداتا جريد فيو - asemshahen5 - 23-12-19
ضع بدل -1
-2 يصلح باذن الله .