[محمد الصدفاوي]

حضراتكم عندي فورم به داتا جرد فيو لموردين اريد أن اجلب بعض بيانات المورد في تكست بوكس بفورم ثانية وهذا هو الكود وقمت بتجربته بعيدا عن البرنامج يشتغل بشكل طبيعي لكن بداخل البرنامج لا يشتغل ارجو المساعدة :- 

كود :

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

ده كود الفورم الذي بداخله الداتا جرد فيو وهذه صورة له :
وانا مشعارف ارفع الصور بصراحة    
   
ارجو المساعدة وهو عندما يتم الضغط علي زر اضافة مورد يتم اظهار شاشة الموردين ويتم اختيارالمورد ثم الضغط دبل كليك يتم جلب البيانات إلي صناديق النص 

وشكرا لكم دمتم في رعاية الله