منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

  مدرج كود لكيفيه اختيار عناصر من DataGridView و عرض بياناته في فورم اخر بالنقر المزدوج عليها من DataGridView ..

لم يشتغل معي .. اريد ان اعرف المشكله ان امكن ؟؟

 Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick

        If (DataGridView1.RowCount > 0) Then

            Dim sql As String = "select p_name,(select c_name from t_clinic where c_id=t_patiants.c_id)as c_name,(select D_name from t_doctor where D_id=t_patiants.d_id)as d_name,p_birthday  from t_patiants  '" + DataGridView1.CurrentRow.Cells(0).Value.ToString + "'"

            Dim cont As New SqlCommand(sql, Class1.con)

            Dim dr As SqlDataReader

            Class1.con.Open()

            Try

                dr = cont.ExecuteReader

                If dr.HasRows Then

                    dr.Read()

                    Form3.Show()

                    Form3.Button4.Enabled = True

                    Form3.Button1.Enabled = True

                    Form3.Button3.Enabled = False

                    Form3.Button5.Enabled = False

                    Form3.p_id = dr("d_id").ToString

                    Form3.TextBox1 = dr("p_name")

                    Form3.ComboBox2.Text = dr("c_name").ToString

                    Form3.ComboBox1.Text = dr("d_name").ToString

                    Form3.DateTimePicker1.Text = dr("p_birthday").ToString

                End If

            Catch ex As Exception

                MsgBox("error", MsgBoxStyle.Exclamation)

                MsgBox(ex.Message)

            End Try

            Class1.con.Close()

        End If

            End Sub

                    ("Form3.TextBox1 = dr("p_name"

                    Form3.ComboBox2.Text = dr("c_name").ToString

                    Form3.ComboBox1.Text = dr("d_name").ToString

                    Form3.DateTimePicker1.Text = dr("p_birthday").ToString