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

نسخة كاملة : داتا جريد فيو مرتبطة النموذج الرئيسي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الرجاء من الاخوة الكرام افضل طريقة لانشاء نموذج رئيسي مرتبط  داخله بعلاقة راس باطراف بمعنى اخر يعني داتا جريد فيو مرتبطة  بالمعلومات في النموذج مثلا النموذج بالمعلومات عن المركبة والداتا جريد فيو عن حركة المركبة
لم توضح الصورة للمطلوب اخى الكريم
اتمنى التوضيح اكثر

تحياتى لك
وتمنياتى لك التوفيق
السلام عليكم اخي الكريم
اذا لم اكن مخطئا انت تريد وضع 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

الف شكر كل التقدير والاحترام
الحمد لله والشكر لله
ولك اخي الكريم