السلام عليكم ورحمة الله وبركاته
كيف اقوم بتعبئة سجل الداتا قريد بارقام متسلسلة من 00 الى نهاية السجل بعد تحديد موقع البداية على الداتا قريد سواء من Columns1 او من Columns 2 او من اي مكان اجددة على نفس السجل
قمت بوضع الكود
كود :
For i = 0 To DataGridView1.Columns.Count - 1
DataGridView1.Rows(0).Cells(i).Value = "00"
Next
مع اني محدد موقع ليس من بداية السجل كما في الصورة المرفقة
وكذلك ارغب في اضافة رقم بعد كل حقل
من خلال
حاول استبدال "00" بـ i
For i = 0 To DataGridView1.Columns.Count - 1
DataGridView1.Rows(0).Cells(i).Value = i
Next
بالتوفيق
الف شكر
1- لكن هذا يعطي فقط السطر ا لاول
والمطلوب أن يبدأ من الحقل الذي يتم وضع المؤشر عليه
وفي أي سطر
2- ارغب في جعل بداية الارقام 00 01 02 03
بدل من 0 1 2 3
اخي لو حبيت الارقام بطريقتك معناها ليس ارقام ولكن تصبح 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 في العبارة الخاصة بك من تحديد العمود رقم (وهذه لها اكثر من طريقة)
بالتوفيق
مثال بسيط عله يساعدك
هذا عند الضغط مرتين على الخانة المراد البدء منها في أي سطر تريد
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
الف شكر اخي العزيز على اجابتك تم الاستفاده منها والحمد لله
كود :
CType(DataGridView1.DataSource, DataTable).Rows.Add(New Object() {})
For i = 0 To DataGridView1.Columns.Count - 1
If i < 10 Then
DataGridView1.Rows(0).Cells(i).Value = "0" & i
Else
DataGridView1.Rows(0).Cells(i).Value = i
End If
Next
وضعت هذا الكود
اعطاني السجل الاول بشكل ممتاز يبقى السجل الثاني والثالث الخ
ولكن بهذه الشكل كما في الصورة المرفقة
حاول الكود التالي
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