منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم .عندي داتا كرد فيو فيها خلية رقم 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

كود 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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

muaamar

سعود