[ابراهيم ايبو]

السلام عليكم اخي عاشق الرسول
اريد لفت انتباهك الى ارقام الاعمدة استبدلها باسمائها ضمن دبل كوتيشن
تفضل هذا الكود سيكون التاريخ بناء على عمود رقم 6 ان كان مكتوب به (مادة - شهري) 
عندها اما ان يبقي التاريخ على حاله او يزيد بقدار الايام

كود :

Private Sub DataGridView1_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_BILL.RowValidated
       Try
           '  التحقق من ان خانة المادة غير فارغة وكذلك خانة التاريخ غير فارغة
           If DGV_BILL.CurrentRow.Cells(6).Value.ToString().Trim() <> "" And DGV_BILL.CurrentRow.Cells(7).Value.ToString().Trim() <> "" Then

               'بناء عى الخلية رقم 6 ان كان مكتوب فيها مادة
               If DGV_BILL.CurrentRow.Cells(6).Value.ToString().Trim() = "مادة" Then
                   ' يبقى التاريخ على حاله
                   DGV_BILL.CurrentRow.Cells(8).Value = DGV_BILL.CurrentRow.Cells(7).Value.ToString()
                   DGV_BILL.CurrentRow.Cells(8).ReadOnly = True

                   'بناء عى الخلية رقم 6 ان كان مكتوب فيها شهري سيتم اعتماد زيادة التاريخ
               ElseIf DGV_BILL.CurrentRow.Cells(6).Value.ToString().Trim() = "شهري" Then
                   Dim DD As Date = (CDate(DGV_BILL.CurrentRow.Cells(7).Value))
                   DGV_BILL.CurrentRow.Cells(8).Value = DD.AddDays(29).ToString("dd/MM/yyyy")
                   DGV_BILL.CurrentRow.Cells(8).ReadOnly = True
               End If
           End If
       Catch ex As Exception

       End Try

   End Sub