+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=41727)
لوب - muaamar - 13-06-22
السلام عليكم .عندي داتا كرد فيو فيها خلية رقم 2 عندي كود اضافة 60 سنة لغرض التقاعد المطلوب عمل لوب يقوم تلقائيا باضافة رقم 60 الى كل الخلايا رقم 2
DATAgeretirdate.Value = DATBirtDay.Value.Date.AddYears(CInt(CboAgeretir.Text))
كود اضافة 60 سنة
DATBirtDay تاريخ التولد
عملت اللوب ادناه ولكنه لم ينفع
For i As Integer = 0 To grdEmployes.RowCount - 1
DATAgeretirdate.Value = DATBirtDay.Value.Date.AddYears(CInt(CboAgeretir.Text))
Exit For
Next
RE: لوب - سعود - 14-06-22
كود Exit For
يمكن هو السبب!
لانه بدون شرط فيخرج بعد اول دورة.
اذا مثل الموجود بالصورة:
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i As Integer = 0 To 5
dgv1.Rows.Add(i, "Name: " & i, CDate("1/1/2000").AddYears(i).ToShortDateString)
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 0 To dgv1.Rows.Count - IIf(dgv1.AllowUserToAddRows, 2, 1)
dgv1.Rows(i).Cells(3).Value = CDate(dgv1.Rows(i).Cells(2).Value).AddYears(60).ToShortDateString
Next
End Sub