Having a problem with table styles

[Aaron Smith]

I can't seem to get my table styles to apply to my DataGrid. In order
for them to apply correctly, what exactly has to be set in the
DataSource and DataMember, and then the DataMapping properties? I keep
trying all different combinations of DataSets, tables, and even
DataViews, but it just isn't working...

I have a DataSet that has the following:
Table1
|_
Table 2
|_
Table 3

Table 3 is the one I am trying to display in the grid..

I've tried for the DataSource the DataSet.Table1 and DataMember
Table2.Table3

Also just DataSet and then in DataMember - Table1.Table2.T able3

Nothing seems to work except doing DataSet and then Table3 for the
DataMember... This is ok, except it displays all the records all the
time, and I only want records for what is selected in Table2....

Aaron
--
---
Aaron Smith
Remove -1- to E-Mail me. Spam Sucks.

[Ken Tucker [MVP]]

Hi,

Use a datareleation and setdatabinding.
Dim ds As DataSet
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim daEmployees As OleDbDataAdapte r

Dim daOrders As OleDbDataAdapte r

Dim daOrderDetails As OleDbDataAdapte r

Dim conn As OleDbConnection

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.AllowNavigat ion = False

End If

Next

strConn = "Provider = Microsoft.Jet.O LEDB.4.0;"

strConn &= "Data Source = Northwind.mdb;"

conn = New OleDbConnection (strConn)

ds = New DataSet

daEmployees = New OleDbDataAdapte r("Select * from Employees", conn)

daOrders = New OleDbDataAdapte r("Select * from Orders", conn)

daOrderDetails = New OleDbDataAdapte r("Select * from [Order Details]", conn)

daEmployees.Fil l(ds, "Employee")

daOrders.Fill(d s, "Orders")

daOrderDetails. Fill(ds, "OrderDetai ls")

ds.Relations.Ad d("EmployeeOrde r",
ds.Tables("Empl oyee").Columns( "EmployeeID "), _

ds.Tables("Orde rs").Columns("E mployeeID"))

frm.DataGrid1.S etDataBinding(d s, "Employee.Emplo yeeOrder")

frm.Show()

ds.Relations.Ad d("Order2Detail s", ds.Tables("Orde rs").Columns("O rderID"), _

ds.Tables("Orde rDetails").Colu mns("OrderID"))

dgEmployees.Rea dOnly = True

dgOrders.ReadOn ly = True

dgOrderDetails. ReadOnly = True

dgEmployees.Set DataBinding(ds, "Employee")

dgOrders.SetDat aBinding(ds, "Employee.Emplo yeeOrder")

dgOrderDetails. SetDataBinding( ds, "Employee.Emplo yeeOrder.Order2 Details")

End Sub

Private Sub SetupGrid()

Dim ts As New DataGridTableSt yle

ts.MappingName = "Orders"

Dim dgc As New DataGridTextBox Column

With dgc

..MappingName = "CustomerID "

..HeaderText = "ID"

..Width = 250

End With

ts.GridColumnSt yles.Add(dgc)

dgOrders.TableS tyles.Add(ts)

End Sub

Private Sub SetupGrid2()

Dim ts As New DataGridTableSt yle

ts.MappingName = "OrderDetai ls"

Dim dgc As New DataGridTextBox Column

With dgc

..MappingName = "ProductID"

..HeaderText = "ID"

..Width = 250

End With

ts.ReadOnly = True

ts.GridColumnSt yles.Add(dgc)

dgOrderDetails. TableStyles.Add (ts)

End Sub

Ken

-----------------

"Aaron Smith" <th**********@s mithcentral.net > wrote in message
news:mD******** **********@news svr33.news.prod igy.com...
I can't seem to get my table styles to apply to my DataGrid. In order
for them to apply correctly, what exactly has to be set in the
DataSource and DataMember, and then the DataMapping properties? I keep
trying all different combinations of DataSets, tables, and even
DataViews, but it just isn't working...

I have a DataSet that has the following:
Table1
|_
Table 2
|_
Table 3

Table 3 is the one I am trying to display in the grid..

I've tried for the DataSource the DataSet.Table1 and DataMember
Table2.Table3

Also just DataSet and then in DataMember - Table1.Table2.T able3

Nothing seems to work except doing DataSet and then Table3 for the
DataMember... This is ok, except it displays all the records all the
time, and I only want records for what is selected in Table2....

Aaron
--
---
Aaron Smith
Remove -1- to E-Mail me. Spam Sucks.

[Ken Tucker [MVP]]

Hi,

Use a datareleation and setdatabinding.
Dim ds As DataSet
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim daEmployees As OleDbDataAdapte r

Dim daOrders As OleDbDataAdapte r

Dim daOrderDetails As OleDbDataAdapte r

Dim conn As OleDbConnection

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.AllowNavigat ion = False

End If

Next

strConn = "Provider = Microsoft.Jet.O LEDB.4.0;"

strConn &= "Data Source = Northwind.mdb;"

conn = New OleDbConnection (strConn)

ds = New DataSet

daEmployees = New OleDbDataAdapte r("Select * from Employees", conn)

daOrders = New OleDbDataAdapte r("Select * from Orders", conn)

daOrderDetails = New OleDbDataAdapte r("Select * from [Order Details]", conn)

daEmployees.Fil l(ds, "Employee")

daOrders.Fill(d s, "Orders")

daOrderDetails. Fill(ds, "OrderDetai ls")

ds.Relations.Ad d("EmployeeOrde r",
ds.Tables("Empl oyee").Columns( "EmployeeID "), _

ds.Tables("Orde rs").Columns("E mployeeID"))

frm.DataGrid1.S etDataBinding(d s, "Employee.Emplo yeeOrder")

frm.Show()

ds.Relations.Ad d("Order2Detail s", ds.Tables("Orde rs").Columns("O rderID"), _

ds.Tables("Orde rDetails").Colu mns("OrderID"))

dgEmployees.Rea dOnly = True

dgOrders.ReadOn ly = True

dgOrderDetails. ReadOnly = True

dgEmployees.Set DataBinding(ds, "Employee")

dgOrders.SetDat aBinding(ds, "Employee.Emplo yeeOrder")

dgOrderDetails. SetDataBinding( ds, "Employee.Emplo yeeOrder.Order2 Details")

End Sub

Private Sub SetupGrid()

Dim ts As New DataGridTableSt yle

ts.MappingName = "Orders"

Dim dgc As New DataGridTextBox Column

With dgc

..MappingName = "CustomerID "

..HeaderText = "ID"

..Width = 250

End With

ts.GridColumnSt yles.Add(dgc)

dgOrders.TableS tyles.Add(ts)

End Sub

Private Sub SetupGrid2()

Dim ts As New DataGridTableSt yle

ts.MappingName = "OrderDetai ls"

Dim dgc As New DataGridTextBox Column

With dgc

..MappingName = "ProductID"

..HeaderText = "ID"

..Width = 250

End With

ts.ReadOnly = True

ts.GridColumnSt yles.Add(dgc)

dgOrderDetails. TableStyles.Add (ts)

End Sub

Ken

-----------------

"Aaron Smith" <th**********@s mithcentral.net > wrote in message
news:mD******** **********@news svr33.news.prod igy.com...
I can't seem to get my table styles to apply to my DataGrid. In order
for them to apply correctly, what exactly has to be set in the
DataSource and DataMember, and then the DataMapping properties? I keep
trying all different combinations of DataSets, tables, and even
DataViews, but it just isn't working...

I have a DataSet that has the following:
Table1
|_
Table 2
|_
Table 3

Table 3 is the one I am trying to display in the grid..

I've tried for the DataSource the DataSet.Table1 and DataMember
Table2.Table3

Also just DataSet and then in DataMember - Table1.Table2.T able3

Nothing seems to work except doing DataSet and then Table3 for the
DataMember... This is ok, except it displays all the records all the
time, and I only want records for what is selected in Table2....

Aaron
--
---
Aaron Smith
Remove -1- to E-Mail me. Spam Sucks.

[Aaron Smith]

Thats basically how I set it up in the DataSource and DataMember
properties. I found that in order for it to work, I have to first set it
to the tables that are not replated... Ex: DS = DataSet DM = DS.Table3
Then once I do that, the table styles will apply to the grid on the
screen. Then, I can go in and set the DM = DS.Table1.Table 2.Table3 and
it is still applied and works correctly..

This works fine on 2 of 3 grids though. They ALL work fine when the
program is run... However, there is one grid that when I set it to the
proper databinding, the IDE will throw some exceptions when switching
between code and design views. I'm going to create a seperate thread for
this problem I think, because I don't think it's really a table style
problem anymore, I think there is something else wrong..

Thanks for the help though, I didn't know you could set the relations in
code like that. I saved the example in case I need it later...

Thanks Again,
Aaron

Ken Tucker [MVP] wrote:

Hi,

Use a datareleation and setdatabinding.

<Cut>

dgEmployees.Set DataBinding(ds, "Employee")

dgOrders.SetDat aBinding(ds, "Employee.Emplo yeeOrder")

dgOrderDetails. SetDataBinding( ds, "Employee.Emplo yeeOrder.Order2 Details")

<Cut>

Ken

-----------------

---
Aaron Smith
Remove -1- to E-Mail me. Spam Sucks.