Hi,
Here is an example that uses the northwind database. Add 3
datagrids to a form. dgorders, dgorderdetails, dgemployees.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim ds As DataSet
Dim daEmployees As SqlDataAdapter
Dim daOrders As SqlDataAdapter
Dim daOrderDetails As SqlDataAdapter
Dim conn As SqlConnection
Dim strConn As String
Dim strSQL As String
Dim strItem As String
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is DataGrid Then
Dim dg As DataGrid = ctrl
dg.AllowNavigation = False
End If
Next
strConn = "Server = " + Environment.MachineName + "\VSdotNet;"
strConn += "Database = NorthWind;"
strConn += "Integrated Security = SSPI;"
conn = New SqlConnection(strConn)
ds = New DataSet
daEmployees = New SqlDataAdapter("Select * from Employees", conn)
daOrders = New SqlDataAdapter("Select * from Orders", conn)
daOrderDetails = New SqlDataAdapter("Select * from [Order Details]", conn)
daEmployees.Fill(ds, "Employee")
daOrders.Fill(ds, "Orders")
daOrderDetails.Fill(ds, "OrderDetails")
ds.Relations.Add("EmployeeOrder",
ds.Tables("Employee").Columns("EmployeeID"), _
ds.Tables("Orders").Columns("EmployeeID"))
ds.Relations.Add("Order2Details", ds.Tables("Orders").Columns("OrderID"), _
ds.Tables("OrderDetails").Columns("OrderID"))
dgEmployees.SetDataBinding(ds, "Employee")
dgOrders.SetDataBinding(ds, "Employee.EmployeeOrder")
dgOrderDetails.SetDataBinding(ds, "Employee.EmployeeOrder.Order2Details")
End Sub
Ken
--------------------
"WStoreyII" <pa**********@sbcglobal.net> wrote in message
news:45******************@newssvr27.news.prodigy.c om...
I wish to make a custom view of relations in a datagrid
what i want to do is when the plus sign is clicked instead of showing the
link label
i want to show a grid with the subtable in that area between the selected
grid and the next grid.
however i cannot seem to find a method of obtaing the position coordinate
for that area.? and ideas on how to go about finding the position?
WStoreyII
thanks again
