المشاركات : 88
المواضيع 1
الإنتساب : Jun 2014
السمعة :
12
الشكر: 0
تم شكره 133 مرات في 72 مشاركات
حاول استبدال "00" بـ i
For i = 0 To DataGridView1.Columns.Count - 1
DataGridView1.Rows(0).Cells(i).Value = i
Next
بالتوفيق
المشاركات : 729
المواضيع 234
الإنتساب : Sep 2013
السمعة :
3
الشكر: 427
تم شكره 162 مرات في 98 مشاركات
الف شكر
1- لكن هذا يعطي فقط السطر ا لاول
والمطلوب أن يبدأ من الحقل الذي يتم وضع المؤشر عليه
وفي أي سطر
2- ارغب في جعل بداية الارقام 00 01 02 03
بدل من 0 1 2 3
المشاركات : 88
المواضيع 1
الإنتساب : Jun 2014
السمعة :
12
الشكر: 0
تم شكره 133 مرات في 72 مشاركات
31-03-21, 04:58 PM
(آخر تعديل لهذه المشاركة : 31-03-21, 05:07 PM {2} بواسطة messry.)
اخي لو حبيت الارقام بطريقتك معناها ليس ارقام ولكن تصبح Text
وتستطيع ان تفعل ذلك بجملة شرطية بمعنى
if i < 10 then
DataGridView1.Rows(0).Cells(i).Value = "0" & i
end if
أما بالنسبة للسؤال الأول يعطي السطر الأول فقط أنت الذي حددت السطر
DataGridView1.Rows(0).Cells(i).Value = i
وهنا تستطيع تغيير 0 بأي رقم تريده وفي حالتك يكون 1 معناها السطر الثاني لديك
أما بالنسبة يبدأ من الحفل الذي تريده تستطيع ان تدخل String في العبارة الخاصة بك من تحديد العمود رقم (وهذه لها اكثر من طريقة)
بالتوفيق
المشاركات : 88
المواضيع 1
الإنتساب : Jun 2014
السمعة :
12
الشكر: 0
تم شكره 133 مرات في 72 مشاركات
مثال بسيط عله يساعدك
هذا عند الضغط مرتين على الخانة المراد البدء منها في أي سطر تريد
Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
dim ICol = DataGridView1.CurrentCell.ColumnIndex
dim IrowS = DataGridView1.CurrentCell.RowIndex
For i = 0 To DataGridView1.Columns.Count - ICol
DataGridView1.Rows(IrowS).Cells(ICol).Value = i
if i < 10 then
DataGridView1.Rows(0).Cells(i).Value = "0" & i
end if
Next
End Sub
المشاركات : 88
المواضيع 1
الإنتساب : Jun 2014
السمعة :
12
الشكر: 0
تم شكره 133 مرات في 72 مشاركات
31-03-21, 08:48 PM
(آخر تعديل لهذه المشاركة : 31-03-21, 08:55 PM {2} بواسطة messry.)
حاول الكود التالي
dim ICol = DataGridView1.CurrentCell.ColumnIndex
dim IrowS = DataGridView1.CurrentCell.RowIndex
For i = ICol To DataGridView1.Columns.Count - 1
DataGridView1.Rows(IrowS).Cells(i).Value = i
if i < 10 then
DataGridView1.Rows(IrowS).Cells(i).Value = "0" & i
end if
Next