03-07-19, 11:25 PM
الرجاء من الاخوة الكرام افضل طريقة لانشاء نموذج رئيسي مرتبط داخله بعلاقة راس باطراف بمعنى اخر يعني داتا جريد فيو مرتبطة بالمعلومات في النموذج مثلا النموذج بالمعلومات عن المركبة والداتا جريد فيو عن حركة المركبة
'بجب عمل هذا الفنكشن اللاتصال بجدول الحركة
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