25-09-21, 05:20 PM
حضراتكم عندي فورم به داتا جرد فيو لموردين اريد أن اجلب بعض بيانات المورد في تكست بوكس بفورم ثانية وهذا هو الكود وقمت بتجربته بعيدا عن البرنامج يشتغل بشكل طبيعي لكن بداخل البرنامج لا يشتغل ارجو المساعدة :-
ده كود الفورم الذي بداخله الداتا جرد فيو وهذه صورة له :
وانا مشعارف ارفع الصور بصراحة[attachment=27019]
[attachment=27020]
ارجو المساعدة وهو عندما يتم الضغط علي زر اضافة مورد يتم اظهار شاشة الموردين ويتم اختيارالمورد ثم الضغط دبل كليك يتم جلب البيانات إلي صناديق النص
وشكرا لكم دمتم في رعاية الله
كود :
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]
ارجو المساعدة وهو عندما يتم الضغط علي زر اضافة مورد يتم اظهار شاشة الموردين ويتم اختيارالمورد ثم الضغط دبل كليك يتم جلب البيانات إلي صناديق النص
وشكرا لكم دمتم في رعاية الله
