تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
Sad ممكن حل لهذا المشكل melad2002 0 239 30-01-24, 08:01 PM
آخر رد: melad2002
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 498 13-12-23, 12:55 AM
آخر رد: العتيق
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,576 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  ممكن مساعدة في تعلم طريقة جمع التاريخ ؟ Ali_hassn 2 456 27-08-23, 02:18 AM
آخر رد: Ali_hassn
  طلب تصحيح كود ارسال رسائل SMS assuhimi 3 747 09-07-23, 01:41 PM
آخر رد: Shade0001
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel

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


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