[bumb]

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

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