عندى مشكله غريبه اول مره اشوفها واسمع عنها

اذهب الى الأسفل

عندى مشكله غريبه اول مره اشوفها واسمع عنها Empty عندى مشكله غريبه اول مره اشوفها واسمع عنها

مُساهمة من طرف خالد كامل1 في السبت أبريل 27, 2019 1:16 pm

لدى كود نفل بيانات داتا جريد فيو فى فورم 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
خالد كامل1
.
.

تاريخ التسجيل : 25/01/2019
المساهمات : 9
النقاط : 21
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

عندى مشكله غريبه اول مره اشوفها واسمع عنها Empty رد: عندى مشكله غريبه اول مره اشوفها واسمع عنها

مُساهمة من طرف م/موسي في السبت أبريل 27, 2019 8:26 pm

ربما يساعدك هذا الكود

الكود:
 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
المساهمات : 171
النقاط : 331
التقيم : 12
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى