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

السلام عليكم

عندي 2 DataGridView المطلوب طريقة ربطهم مع بعض بحيث اختار من الأول اسم الشخص ويظهر في الثاني كل ارقامه

ولكم جزيل الشكر

اشكرك على الرد

انا لدي كود ولكنه يفرض علي الشكل حاولت التخلص من التقييد الذي يفرضه الكود ولكن لم استطع
لدي 2 داتا قريد فيو ولكنه يتجاهلها تماماً

Private masterDataGridView As New DataGridView()
Private masterBindingSource As New BindingSource()
Private detailsDataGridView As New DataGridView()
Private detailsBindingSource As New BindingSource()

<STAThreadAttribute()>
Public Shared Sub Main()
Application.Run(New frmMain())
End Sub

' Initializes the form.
Public Sub New()

masterDataGridView.Dock = DockStyle.Fill
detailsDataGridView.Dock = DockStyle.Fill

Dim splitContainer1 As New SplitContainer()
splitContainer1.Dock = DockStyle.Fill
splitContainer1.Orientation = Orientation.Horizontal
splitContainer1.Panel1.Controls.Add(masterDataGridView)
splitContainer1.Panel2.Controls.Add(detailsDataGridView)

Me.Controls.Add(splitContainer1)
Me.Text = "DataGridView master/detail demo"

End Sub
Private Sub GetData()

Try

' Create a DataSet.
Dim data As New DataSet()
data.Locale = System.Globalization.CultureInfo.InvariantCulture

' Add data from the Customers table to the DataSet.
Dim masterDataAdapter As New OleDbDataAdapter("select * from tblNames", Conn)
masterDataAdapter.Fill(data, "tblNames")

' Add data from the Orders table to the DataSet.
Dim detailsDataAdapter As New OleDbDataAdapter("select * from Numbers", Conn)
detailsDataAdapter.Fill(data, "Numbers")

' Establish a relationship between the two tables.
Dim relation As New DataRelation("tblNamesNumbers",
data.Tables("tblNames").Columns("ID"),
data.Tables("Numbers").Columns("NameID"))
data.Relations.Add(relation)

' Bind the master data connector to the Customers table.
masterBindingSource.DataSource = data
masterBindingSource.DataMember = "tblNames"

' Bind the details data connector to the master data connector,
' using the DataRelation name to filter the information in the
' details table based on the current row in the master table.
detailsBindingSource.DataSource = masterBindingSource
detailsBindingSource.DataMember = "tblNamesNumbers"
Catch ex As Exception
MessageBox.Show("To run this example, replace the value of the " &
"connectionString variable with a connection string that is " &
"valid for your system.")
End Try

End Sub

Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Bind the DataGridView controls to the BindingSource
' components and load the data from the database.
masterDataGridView.DataSource = masterBindingSource
detailsDataGridView.DataSource = detailsBindingSource
GetData()

' Resize the master DataGridView columns to fit the newly loaded data.
masterDataGridView.AutoResizeColumns()

' Configure the details DataGridView so that its columns automatically
' adjust their widths when the data changes.
detailsDataGridView.AutoSizeColumnsMode =
DataGridViewAutoSizeColumnsMode.AllCells

End Sub

أخي الفاضل :

أعددت لك مثال بسيط بالمرفقات

عند الضغط Double Click على الصف المطلوب ... تظهر باقي البيانات في DataGridView آخر

أتمنى أن يساعدك هذا المثال


وفقنا الله واياكم