[حريف برمجة]

اول شي يجب وضع قريد فيو اخرى لأن القريد فيو الموجوده مربوطة بالجدول بالويزارد

اتفقنا تضع قريد فيو في الفورم ولتكن اسمها Datagridview2

ضع الكود التالي في زر

كود :

Dim dp As New OleDbDataAdapter("SELECT doctor.doc_ID, doctor.doc_name, department.dept_name, department.dept_no FROM department INNER JOIN doctor ON department.dept_no = doctor.dept_no", CONN)
        Dim ds As New DataSet

        dp.Fill(ds)

        DataGridView2.DataSource = ds.Tables(0)
        DataGridView2.Columns(3).Visible = False
        dp.Dispose()

حتى هنا يعرض المطلوب اللي طلبته في القريد رقم 2

علشان تختار سجل من القريد اللي عملنا ويعرض بيانات السجل في التكستات

ضع الكود التالي كماهو

كود :

Private Sub DataGridView2_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView2.CellMouseClick
        If e.RowIndex = -1 Then Exit Sub

        Txtid.Text = DataGridView1.Item(0, e.RowIndex).Value
        Txtname.Text = DataGridView1.Item(1, e.RowIndex).Value
        Txtdept.Text = DataGridView1.Item(2, e.RowIndex).Value
        TextBox1.Text = DataGridView1.Item(3, e.RowIndex).Value
    End Sub

وخلاص ،، اسمحلي ما اقدر ارفع المثال بعد التعديل لأن الاصدار اللي عندي 2010 ما حيشتغل عندك ....