[sofiane-phy]

السلام عليكم ممكن تصحولي هذا الكود من فظلكم

كود :

Private Sub Dgv1_KeyDown(sender As Object, e As KeyEventArgs) Handles Dgv1.KeyDown

       Dgv1.CurrentCell.Selected = True
       txt1.Text = Dgv1.CurrentRow.Cells(4).Value
       txt2.Text = Dgv1.CurrentRow.Cells(5).Value
       txt3.Text = Dgv1.CurrentRow.Cells(6).Value
       txt4.Text = ((Dgv1.CurrentRow.Cells(4).Value + Dgv1.CurrentRow.Cells(5).Value) + (Dgv1.CurrentRow.Cells(6).Value * 3)) / 5


   End Sub

عند النقر على السطر تظهر القيم في التكست بوكس مطابقة للسطر اما في حالة النزول الى الاسفل بالزر Dawon تظهر القيم التي قبلها لاحظ الصورة