منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عندى مشكله غريبه اول مره اشوفها واسمع عنها - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عندى مشكله غريبه اول مره اشوفها واسمع عنها (/showthread.php?tid=29504)

عندى مشكله غريبه اول مره اشوفها واسمع عنها - خالد كامل1 - 27-04-19

السلام عليك [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


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


RE: عندى مشكله غريبه اول مره اشوفها واسمع عنها - saoud2 - 27-04-19

عزيزي

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

تفضل هذا التعديل على الكود  Smile
كود :
   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


RE: عندى مشكله غريبه اول مره اشوفها واسمع عنها - خالد كامل1 - 28-04-19

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

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

تفضل هذا التعديل على الكود  Smile
كود :
   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
المشكله ما زالت قائمه

RE: عندى مشكله غريبه اول مره اشوفها واسمع عنها - saoud2 - 28-04-19

عزيزي

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

تفضل التعديل على الكود السابق  Smile
كود :
   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


RE: عندى مشكله غريبه اول مره اشوفها واسمع عنها - خالد كامل1 - 05-05-19

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