[methal]

السلام عليكم
ممكن مساعدة
اريد خزت ارقام في اكثر من عمود  في قاعدة البيانات في صورة العمود الاول من رقم 1 الى 4 ويثبث العمود الثاني على 1  ويتكرر  العدد في الأول من   1   الى 4 والثاني يكون 2 وهكذا....
العمود1     العمود الثاني
1                       1
2                       1
3                       1
4                       1
1                       2
2                       2  
3                       2   
4                       2
مع الشكر الجزيل

[kiki]

وعليكم السلام ورحمة الله وبركاته
وعلى اى اساس يتم التعامل العدد من 1 : 4 والى اى عدد تكرار
حتى يتم وضع الكود المناسب لما ترد فعله

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم هذا الكود 

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AutoNo, frstCol, scndCol As Integer
       AutoNo = (Dgv.Rows.Count - 1) + 1
       scndCol = (Dgv.Rows.Count - 1 + 4) \ 4
       If Dgv.Rows.Count - 1 = 0 Then
           frstCol = 1
       ElseIf Dgv.Rows.Count - 1 > 0 Then
           If (Dgv.Rows.Count - 1) Mod 4 = 0 Then
               frstCol = 1
           ElseIf (Dgv.Rows.Count - 1) Mod 4 = 1 Then
               frstCol = 2
           ElseIf (Dgv.Rows.Count - 1) Mod 4 = 2 Then
               frstCol = 3
           ElseIf (Dgv.Rows.Count - 1) Mod 4 = 3 Then
               frstCol = 4
           Else
               frstCol = (Dgv.Rows.Count - 1) + 1
           End If

       End If
       Dgv.Rows.Add(AutoNo, frstCol, scndCol)
   End Sub

وهذا مثال مع الداتاغرايد

[kiki]

هذا كود كمثال لما تطلبه لكن يعتمد على ما تريده تماماً
قم باضافة كمثال عدد 2 من ListBox
وضع الكود التالى فى حدث الزر

كود :

       Dim nb, reset, i, ii As Integer
       nb = 3 ' عدد مرات التكرار
       reset = 4 ' اخر رقم للعد و 4 تعنى من 1 الى 4
       For i = 0 To nb - 1
           For ii = 0 To reset - 1
               ' فقط استبدل السطرين هنا بكود الاضافة لقاعدة البيانات مع استخدام كلاً من i+1 و ii+1
               ListBox1.Items.Add(i + 1) ' بخصوص i + 1 تعنى الترقيم المتكرر للرقم مثل 1111
               ListBox2.Items.Add(ii + 1) ' وهنا ii + 1 تعني العد من 1 الى الرقم المحدد مسبقاً
           Next
       Next