My TableStyle Is Not Working

[Ken Powers]

I have a bound datagrid that has data but the formatting from the TableStyle
is not affecting the appearence of the grid. Code below.

Private Sub BindDataGrid()
Try
dgActiveAdj.Tab leStyles.Clear( )

dgtsAdj = New DataGridTableSt yle
dgtsAdj.Mapping Name = "UTILITY.UtilTo Adjust"

' This is a valid DataRelation of dsDataSet

With dgActiveAdj
.DataSource = dsDataSet
.DataMember = "UTILITY.UtilTo Adjust"
.AllowSorting = True
End With

dgtsAdj.Mapping Name = "UTILITY.UtilTo Adjust"

Dim grdColStyle1 As New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Adjustment Name"
.MappingName = "UTILITY.UtilTo Adjust.Adjustme ntName"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Amount"
.MappingName = "UTILITY.UtilTo Adjust.Adjustme nt"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Start Data"
.MappingName = "UTILITY.UtilTo Adjust.AdjStart Date"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "End Data"
.MappingName = "UTILITY.UtilTo Adjust.AdjEndDa te"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

dgActiveAdj.Tab leStyles.Add(dg tsAdj)
dgActiveAdj.Tab leStyles(0).Rea dOnly = True

Catch ex As Exception
MessageBox.Show (ex.Source.ToSt ring & " - " & ex.Message,
Application.Pro ductName, _
MessageBoxButto ns.OK, MessageBoxIcon. Error)
End Try

End Sub

[Ken Tucker]

Hi,

Two things. 1 When filling the dataset specify the name. 2 you did
not add the gridcolumnstyle s to the table style.

Here is an example of how to setup a grid.
Dim ts As New DataGridTableSt yle

ts.MappingName = "InvoiceDat a"

Dim colDescription As New DataGridTextBox Column

With colDescription

..MappingName = "Descriptio n"

..HeaderText = "Descriptio n"

..Width = 280

..NullText = ""

End With

Dim colQty As New DataGridTextBox Column

With colQty

..MappingName = "Quantity"

..HeaderText = "Qty"

..Width = 50

End With

Dim cm As CurrencyManager = CType(Me.Bindin gContext(dvClie nt),
CurrencyManager )

Dim pd As System.Componen tModel.Property Descriptor =
cm.GetItemPrope rties()("Each")

Dim colEach As New DataGridTextBox Column(pd, "C")

With colEach

..MappingName = "Each"

..HeaderText = "Each"

..Width = 50

End With

Dim colPrice As New DataGridTextBox Column(pd, "C")

With colPrice

..MappingName = "Price"

..HeaderText = "Price"

..Width = 50

End With

ts.GridColumnSt yles.Add(colDes cription)

ts.GridColumnSt yles.Add(colQty )

ts.GridColumnSt yles.Add(colEac h)

ts.GridColumnSt yles.Add(colPri ce)

dgInvoiceData.T ableStyles.Add( ts)

ts = Nothing

colPrice = Nothing

colEach = Nothing

colQty = Nothing

colDescription = Nothing

Ken
------------------
"Ken Powers" <KP*****@wppisy s.org> wrote in message
news:u4******** ******@TK2MSFTN GP12.phx.gbl...

I have a bound datagrid that has data but the formatting from the TableStyle is not affecting the appearence of the grid. Code below.

Private Sub BindDataGrid()
Try
dgActiveAdj.Tab leStyles.Clear( )

dgtsAdj = New DataGridTableSt yle
dgtsAdj.Mapping Name = "UTILITY.UtilTo Adjust"

' This is a valid DataRelation of dsDataSet

With dgActiveAdj
.DataSource = dsDataSet
.DataMember = "UTILITY.UtilTo Adjust"
.AllowSorting = True
End With

dgtsAdj.Mapping Name = "UTILITY.UtilTo Adjust"

Dim grdColStyle1 As New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Adjustment Name"
.MappingName = "UTILITY.UtilTo Adjust.Adjustme ntName"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Amount"
.MappingName = "UTILITY.UtilTo Adjust.Adjustme nt"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Start Data"
.MappingName = "UTILITY.UtilTo Adjust.AdjStart Date"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "End Data"
.MappingName = "UTILITY.UtilTo Adjust.AdjEndDa te"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

dgActiveAdj.Tab leStyles.Add(dg tsAdj)
dgActiveAdj.Tab leStyles(0).Rea dOnly = True

Catch ex As Exception
MessageBox.Show (ex.Source.ToSt ring & " - " & ex.Message,
Application.Pro ductName, _
MessageBoxButto ns.OK, MessageBoxIcon. Error)
End Try

End Sub

[Ken Powers]

Ken,

I did add my GridColumnStyle s to my TableStyle.

dgtsAdj being my TablesStyle.

Anything else you can think of.

Ken

[Ken Powers]

Ken,

To answer number 1 this is how I'm filling my DataSet. This sub fires
before I try ti bind to my DataGrid.

Private Sub Get_Data()
Try

Dim sqlcmd = New SqlCommand("sel ect * from INPUT Order by CODE",
sqlConn)

daDataAdapter = New SqlDataAdapter
daDataAdapter.S electCommand = sqlcmd

dsDataSet = New DataSet
daDataAdapter.F ill(dsDataSet, "INPUT")
sqlcmd = New SqlCommand("sel ect * from Utility", sqlConn)
daDataAdapter = New SqlDataAdapter
daDataAdapter.S electCommand = sqlcmd

daDataAdapter.F ill(dsDataSet, "Utility")

sqlcmd = New SqlCommand("sel ect * from ratefil", sqlConn)
daDataAdapter = New SqlDataAdapter
daDataAdapter.S electCommand = sqlcmd

daDataAdapter.F ill(dsDataSet, "ratefil")

sqlcmd = New SqlCommand("sel ect * from ActiveAdjust", sqlConn)
daDataAdapter = New SqlDataAdapter
daDataAdapter.S electCommand = sqlcmd

daDataAdapter.F ill(dsDataSet, "ActiveAdju st")

Dim dr As DataRelation = New _
DataRelation("U tilToInput",
dsDataSet.Table s("Utility").Co lumns.Item("cod e"),
dsDataSet.Table s("Input").Colu mns.Item("code" ))
dsDataSet.Relat ions.Add(dr)
dr = New DataRelation("U tilToAdjust",
dsDataSet.Table s("Utility").Co lumns.Item("cod e"),
dsDataSet.Table s("ActiveAdjust ").Columns.Item ("Code"))
dsDataSet.Relat ions.Add(dr)

Set_Update_Comm and()

Catch ex As Exception
MessageBox.Show (ex.Source.ToSt ring & " - " & ex.Message,
Application.Pro ductName, _
MessageBoxButto ns.OK, MessageBoxIcon. Error)
End Try
End Sub

[Ken Tucker]

Hi,

You can only bind a tablestyle to a table not a datareleation. If
you had a master and a detail grid on your form you could use a
datareleation to keep them in sync. Here is an link to an example.

http://msdn.microsoft.com/library/de...indowsForm.asp

Ken
------------------------------------------
"Ken Powers" <KP*****@wppisy s.org> wrote in message
news:u4******** ******@TK2MSFTN GP12.phx.gbl...

I have a bound datagrid that has data but the formatting from the TableStyle is not affecting the appearence of the grid. Code below.

Private Sub BindDataGrid()
Try
dgActiveAdj.Tab leStyles.Clear( )

dgtsAdj = New DataGridTableSt yle
dgtsAdj.Mapping Name = "UTILITY.UtilTo Adjust"

' This is a valid DataRelation of dsDataSet

With dgActiveAdj
.DataSource = dsDataSet
.DataMember = "UTILITY.UtilTo Adjust"
.AllowSorting = True
End With

dgtsAdj.Mapping Name = "UTILITY.UtilTo Adjust"

Dim grdColStyle1 As New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Adjustment Name"
.MappingName = "UTILITY.UtilTo Adjust.Adjustme ntName"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Amount"
.MappingName = "UTILITY.UtilTo Adjust.Adjustme nt"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Start Data"
.MappingName = "UTILITY.UtilTo Adjust.AdjStart Date"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

grdColStyle1 = New DataGridTextBox Column
With grdColStyle1
.HeaderText = "End Data"
.MappingName = "UTILITY.UtilTo Adjust.AdjEndDa te"
dgtsAdj.GridCol umnStyles.Add(g rdColStyle1)
End With

dgActiveAdj.Tab leStyles.Add(dg tsAdj)
dgActiveAdj.Tab leStyles(0).Rea dOnly = True

Catch ex As Exception
MessageBox.Show (ex.Source.ToSt ring & " - " & ex.Message,
Application.Pro ductName, _
MessageBoxButto ns.OK, MessageBoxIcon. Error)
End Try

End Sub