[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