تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن تصحيح كود
#1
السلام عليكم ممكن تصحولي هذا الكود من فظلكم


كود :
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 تظهر القيم التي قبلها لاحظ الصورة

------------------------
منكم أتعلم
------------------------

الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#2
(06-12-19, 08:10 PM)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 تظهر القيم التي قبلها لاحظ الصورة



يمكنك استخدام هذا الكود في Event       
SelectionChanged

كود :
Private Sub Dgv1_SelectionChanged(sender As Object, e As EventArgs) Handles Dgv1.SelectionChanged
       Try
           Dim currentrw As Integer
           currentrw = Dgv1.CurrentRow.Index
           txt1.Text = Dgv1.Item(4, currentrw).Value.ToString()
           txt2.Text = Dgv1.Item(5, currentrw).Value.ToString()
           txt3.Text = Dgv1.Item(6, currentrw).Value.ToString()
           txt4.text = (Val(txt1.text) + Val(txt2.text)) + (Val(txt3.text) * 3) / 5
       Catch ex As Exception
       End Try
   End Sub
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , sofiane-phy
#3
ممتاز بارك الله فيك
------------------------
منكم أتعلم
------------------------

الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم