[ابراهيم ايبو]

السلام عليكم اخي الكريم

اذا لم اكن مخطئا انت تريد وضع 2 داتا غرايد في الفورم الاولى لعرض معلومات المركبة والثانية لعرض جركة المركبة

بحيث يكون العرض والتنقل في السجلات متوافقا ارجو ان اكون فهمت مرادك

كود :

'بجب عمل هذا الفنكشن اللاتصال بجدول الحركة  
   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