السلام عليك [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
لكم منى جزيل الشكر
عزيزي
قد تحتاج لتحويل النص الى تاريخ مع استخدام حدث 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
عزيزي
ربما الأمر يتعلق بـ 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
اشكركم جميعااخوانى تم حل المشكله