[VB.NET] داتا جريد فيو مرتبطة النموذج الرئيسي

كود :

'بجب عمل هذا الفنكشن اللاتصال بجدول الحركة  

    Function gettable(ByVal selectMoveCar As String) As DataTable

        Try

            Dim tbl As New DataTable()

            If con.State = ConnectionState.Closed Then con.Open()

            cmd.CommandText = selectMoveCar

            tbl.Load(cmd.ExecuteReader())

            Return tbl

        Catch ex As Exception

            MsgBox(ex.Message)

            Return New DataTable

        Finally

            If con.State = ConnectionState.Open Then con.Close()

        End Try

    End Function

    'ثم عمل هذا الصب  

    Sub showdata()

        Try

            If DataGridView1.CurrentRow IsNot Nothing Then

                'عرض الحقول من جدول معلومات  المركبة في الداتا غرايد الاولى  

                Txt_CarId.text = DataGridView1.CurrentRow.Cells(0).Value

                Txt_CarName.text = DataGridView1.CurrentRow.Cells(1).Value

                ' .... وهكذا بقية الحقول

                ' ثم هنا ستجعل الداتا غرايد الثانية للحركة تأخذ الداتا سورس هكذا

                ' طبعا يجب ان تكون قد انشأت علاقة بين الجدولين

                DataGridView2.DataSource = gettable("select*From CarMove where CarId=" & CarId.Text)

            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged

        'مناداة الصب  

        showdata()

    End Sub