عندى مشكله غريبه اول مره اشوفها واسمع عنها
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
عندى مشكله غريبه اول مره اشوفها واسمع عنها
لدى كود نفل بيانات داتا جريد فيو فى فورم 1 الى التكستات فى فورم 2
الغريب انا الكود لا يعمل دائما وانما يعمل مره وكثير لا يعمل مع عدم ظهور اى اخطاء
سارفق لكم الكود ربما انا مخطئ فى كنابته
كل عام وانتم بخير بمناسبه شهر رمضان الكريم
- الكود:
Private Sub dgv1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgv1.DoubleClick
Try
With dgv1
frm_sale.invoices_id.Text = .CurrentRow.Cells(0).Value.ToString()
frm_sale.invoices_date.Value = .CurrentRow.Cells(1).Value.ToString()
frm_sale.cust_name.Text = .CurrentRow.Cells(2).Value.ToString()
frm_sale.imploy_name.Text = .CurrentRow.Cells(4).Value.ToString()
frm_sale.invoices_amount.Text = .CurrentRow.Cells(3).Value.ToString()
End With
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
frm_sale.Show()
End Sub
End Class
خالد كامل1- .
- تاريخ التسجيل : 25/01/2019
المساهمات : 9
النقاط : 21
التقيم : 0
الدولة :
الجنس :
رد: عندى مشكله غريبه اول مره اشوفها واسمع عنها
ربما يساعدك هذا الكود
- الكود:
Private Sub dgv1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgv1.DoubleClick
Dim f As New frm_sale
Try
With dgv1
f.invoices_id.Text = .CurrentRow.Cells(0).Value.ToString()
f.invoices_date.Value = .CurrentRow.Cells(1).Value.ToString()
f.cust_name.Text = .CurrentRow.Cells(2).Value.ToString()
f.imploy_name.Text = .CurrentRow.Cells(4).Value.ToString()
f.invoices_amount.Text = .CurrentRow.Cells(3).Value.ToString()
End With
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
f.Show()
End Sub
م/موسي- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد
» افضل شركة تنظيف اثاث بالرياض تنظيف كنب واجهات حجر بخصم 40%
الأحد مارس 17, 2024 11:52 am من طرف رانيا حماد
» افضل شركة تنظيف فلل بالرياض | الانوار
الأحد مارس 17, 2024 11:22 am من طرف رانيا حماد
» افضل شركة تنظيف واجهات زجاج بالرياض 30% خصم
الأحد مارس 17, 2024 10:38 am من طرف رانيا حماد
» افضل شركة نقل عفش بالكويت بخصم 20%
الخميس مارس 14, 2024 1:36 pm من طرف رانيا حماد