[muaamar]

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