[خالد كامل1]

السلام عليك [b]م اخوانى الكرام[/b]

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

لكم منى جزيل الشكر

[saoud2]

عزيزي

قد تحتاج لتحويل النص الى تاريخ مع استخدام حدث CellDoubleClick مع إظهار الفورم بعد تعبئة البيانات مباشرة

تفضل هذا التعديل على الكود 

كود :

   Private Sub dgv1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellDoubleClick
       Try
           With dgv1
               frm_sale.invoices_id.Text = .CurrentRow.Cells(0).Value.ToString()
               frm_sale.invoices_date.Value = CDate(.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
           frm_sale.Show()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

[خالد كامل1]

(27-04-19, 10:22 PM)saoud2 كتب :

عزيزي

قد تحتاج لتحويل النص الى تاريخ مع استخدام حدث CellDoubleClick مع إظهار الفورم بعد تعبئة البيانات مباشرة

تفضل هذا التعديل على الكود 

كود :

   Private Sub dgv1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellDoubleClick
       Try
           With dgv1
               frm_sale.invoices_id.Text = .CurrentRow.Cells(0).Value.ToString()
               frm_sale.invoices_date.Value = CDate(.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
           frm_sale.Show()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

المشكله ما زالت قائمه

[saoud2]

عزيزي

ربما الأمر يتعلق بـ Show بحيث تكون ShowDialog

تفضل التعديل على الكود السابق 

كود :

   Private Sub dgv1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellDoubleClick
       Try
           Dim frm As New frm_sale
           With dgv1
               frm.invoices_id.Text = .CurrentRow.Cells(0).Value.ToString()
               frm.invoices_date.Value = CDate(.CurrentRow.Cells(1).Value.ToString())
               frm.cust_name.Text = .CurrentRow.Cells(2).Value.ToString()
               frm.imploy_name.Text = .CurrentRow.Cells(4).Value.ToString()
               frm.invoices_amount.Text = .CurrentRow.Cells(3).Value.ToString()
           End With
           frm.ShowDialog()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

[خالد كامل1]

اشكركم جميعااخوانى تم حل المشكله