+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39570)
ما هو الخطأ في عدم تنفيذ هذه الكود - محمد الصدفاوي - 25-09-21
حضراتكم عندي فورم به داتا جرد فيو لموردين اريد أن اجلب بعض بيانات المورد في تكست بوكس بفورم ثانية وهذا هو الكود وقمت بتجربته بعيدا عن البرنامج يشتغل بشكل طبيعي لكن بداخل البرنامج لا يشتغل ارجو المساعدة :-
كود :
Private Sub DGV_Imp_DoubleClick(sender As System.Object, e As System.EventArgs) Handles DGV_Imp.DoubleClick
Get_Info_To_Edit2()
End Sub
Public Sub Get_Info_To_Edit2()
Try
If Con.State = 1 Then Con.Close()
Con.Open()
Dim cmd As New SqlCommand(" select * from Importer_Tbl where Imp_ID=@Imp_ID", Con)
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@Imp_ID", SqlDbType.Int).Value = DGV_Imp.CurrentRow.Cells(0).Value.ToString
Dim adp As New SqlDataAdapter(cmd)
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
While dr.Read
Buy_Inv.t1.Text = dr("Imp_ID").ToString
Buy_Inv.t2.Text = dr("ImpName").ToString
Buy_Inv.t3.Text = dr("ImpPhone").ToString
Buy_Inv.t4.Text = dr("ToHim").ToString
Buy_Inv.t5.Text = dr("Onhim").ToString
End While
dr.Close()
Con.Close()
Catch ex As Exception
Con.Close()
End Try
Me.Close()
End Subده كود الفورم الذي بداخله الداتا جرد فيو وهذه صورة له :
وانا مشعارف ارفع الصور بصراحة[attachment=27019]
[attachment=27020]
ارجو المساعدة وهو عندما يتم الضغط علي زر اضافة مورد يتم اظهار شاشة الموردين ويتم اختيارالمورد ثم الضغط دبل كليك يتم جلب البيانات إلي صناديق النص
وشكرا لكم دمتم في رعاية الله
RE: ما هو الخطأ في عدم تنفيذ هذه الكود - محمد الصدفاوي - 29-09-21
هل من رد شباب
RE: ما هو الخطأ في عدم تنفيذ هذه الكود - ماشي - 30-09-21
PHP كود :
Catch ex As Exception
MsgBox(ex.Message)
Finally
Con.Close()
End Try
RE: ما هو الخطأ في عدم تنفيذ هذه الكود - محمد الصدفاوي - 30-09-21
(30-09-21, 11:26 AM)ماشي كتب :PHP كود :
Catch ex As Exception
MsgBox(ex.Message)
Finally
Con.Close()
End Try
حضرتك اولا شكرا علي الرد
ثانيا حضرتك ممكن توضيح اكتر بعد اذنك
(30-09-21, 03:43 PM)محمد الصدفاوي كتب :(30-09-21, 11:26 AM)ماشي كتب :PHP كود :
Catch ex As Exception
MsgBox(ex.Message)
Finally
Con.Close()
End Try
حضرتك اولا شكرا علي الرد
ثانيا حضرتك ممكن توضيح اكتر بعد اذنك
انا جربتها برضه ما اشتغل
RE: ما هو الخطأ في عدم تنفيذ هذه الكود - عبد العزيز البسكري - 02-10-21
السلام عليكم و رحمة الله و بركاته
أين المشكلة أخي .. جربته و هو يشتغل تمام التمام
شوف هذا الملف ربما يفيد إن شاء الله
تحياتي
RE: ما هو الخطأ في عدم تنفيذ هذه الكود - محمد الصدفاوي - 04-10-21
حضرتك دا ملف المشروع وشكرا
RE: ما هو الخطأ في عدم تنفيذ هذه الكود - محمد الصدفاوي - 09-10-21
هل من رد شباب