+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] الدوارات (/showthread.php?tid=35304)
الدوارات - methal - 20-06-20
السلام عليكم
ممكن مساعدة
اريد خزت ارقام في اكثر من عمود في قاعدة البيانات في صورة العمود الاول من رقم 1 الى 4 ويثبث العمود الثاني على 1 ويتكرر العدد في الأول من 1 الى 4 والثاني يكون 2 وهكذا....
العمود1 العمود الثاني
1 1
2 1
3 1
4 1
1 2
2 2
3 2
4 2
مع الشكر الجزيل
RE: الدوارات - kiki - 20-06-20
وعليكم السلام ورحمة الله وبركاته
وعلى اى اساس يتم التعامل العدد من 1 : 4 والى اى عدد تكرار
حتى يتم وضع الكود المناسب لما ترد فعله
RE: الدوارات - ابراهيم ايبو - 20-06-20
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم هذا الكود
كود :
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 SubRE: الدوارات - kiki - 20-06-20
هذا كود كمثال لما تطلبه لكن يعتمد على ما تريده تماماً
قم باضافة كمثال عدد 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