تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعبئة الداتا قريد
#1
السلام عليكم ورحمة الله وبركاته

كيف اقوم بتعبئة سجل الداتا قريد بارقام متسلسلة من 00  الى نهاية السجل بعد تحديد موقع البداية على الداتا قريد سواء من Columns1 او من Columns 2  او من اي مكان اجددة على نفس السجل

قمت بوضع الكود 


كود :
For i = 0 To DataGridView1.Columns.Count - 1
            DataGridView1.Rows(0).Cells(i).Value = "00"
        Next
  
مع اني محدد موقع ليس من بداية السجل كما في الصورة المرفقة 
وكذلك ارغب في اضافة رقم بعد كل حقل
من خلال


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
حاول استبدال "00" بـ i
For i = 0 To DataGridView1.Columns.Count - 1
DataGridView1.Rows(0).Cells(i).Value = i
Next
بالتوفيق
الرد
تم الشكر بواسطة: aftfm , aftfm , Ronald
#3
الف شكر 

1- لكن هذا يعطي فقط السطر ا لاول 
والمطلوب أن يبدأ من الحقل الذي يتم وضع المؤشر عليه

وفي أي سطر

2- ارغب في جعل بداية الارقام 00 01 02 03
بدل من 0 1 2 3
الرد
تم الشكر بواسطة:
#4
اخي لو حبيت الارقام بطريقتك معناها ليس ارقام ولكن تصبح 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 في العبارة الخاصة بك من تحديد العمود رقم (وهذه لها اكثر من طريقة)

بالتوفيق
الرد
تم الشكر بواسطة: aftfm , aftfm , Ronald
#5
مثال بسيط عله يساعدك

هذا عند الضغط مرتين على الخانة المراد البدء منها في أي سطر تريد 

   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
الرد
تم الشكر بواسطة: Ronald
#6
الف شكر اخي العزيز على اجابتك تم الاستفاده منها والحمد لله


   
كود :
  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
وضعت هذا الكود 
اعطاني السجل الاول بشكل ممتاز يبقى السجل الثاني والثالث الخ

ولكن بهذه الشكل كما في الصورة المرفقة


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#7
حاول الكود التالي

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
الرد
تم الشكر بواسطة: Ronald , aftfm


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة عند تصدير بيانات الداتا جريد فيو الي ملف وورد moftah70 0 132 21-11-21, 01:44 AM
آخر رد: moftah70
  اريد طريقة لجمع عمود في الداتا جريد مع الكسور بسام محمدغانم 2 212 09-11-21, 08:00 AM
آخر رد: بسام محمدغانم
  مشكلة في تعبئة كومبوبوكس إعماداً على كومبوبوكس آخر جيولوجي مبتدئ 3 213 05-11-21, 02:14 AM
آخر رد: جيولوجي مبتدئ
  هل من الممكن كود جمع فى الداتا جريد فيو بطريقه معينه خالد كامل1 3 234 26-10-21, 12:00 AM
آخر رد: أشرف كريم 2
  تعبئة الداتا جريد فيو عن طريق اللست بوكس او التشك بوكس ismaeel 3 285 16-10-21, 05:42 PM
آخر رد: ismaeel
  سوال عن اضافه كمبو بوكس الى الداتا جريد فيو alazhry 2 292 09-10-21, 06:45 PM
آخر رد: ahmed4
  لماذا ظهور هذا الخطا فى الداتا جريد فيو خالد كامل1 3 396 08-10-21, 07:11 PM
آخر رد: خالد كامل1
  هل يوجد كود برمجى او طريقه لعمل هذا فى الداتا جريد فيو خالد كامل1 3 331 08-10-21, 07:04 PM
آخر رد: خالد كامل1
  تعبئة داتا كرد فيو من الكمبو بوكس نيمو 2 275 03-10-21, 10:10 PM
آخر رد: نيمو
  الانتقال إلى سجل محدد في الداتا قرايد فيو بدون استخدام select معتز حسن 6 855 30-09-21, 04:00 PM
آخر رد: معتز حسن

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم