+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ربط 2 DataGridView ببعض (/showthread.php?tid=14990)
ربط 2 DataGridView ببعض - bumb - 05-03-16
السلام عليكم
عندي 2 DataGridView المطلوب طريقة ربطهم مع بعض بحيث اختار من الأول اسم الشخص ويظهر في الثاني كل ارقامه
ولكم جزيل الشكر
RE: ربط 2 DataGridView ببعض - bumb - 05-03-16
اشكرك على الرد
انا لدي كود ولكنه يفرض علي الشكل حاولت التخلص من التقييد الذي يفرضه الكود ولكن لم استطع
لدي 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
RE: ربط 2 DataGridView ببعض - boudyonline - 05-03-16
أخي الفاضل :
أعددت لك مثال بسيط بالمرفقات
عند الضغط Double Click على الصف المطلوب ... تظهر باقي البيانات في DataGridView آخر
أتمنى أن يساعدك هذا المثال
وفقنا الله واياكم