VB Code:
'Set the column styles
Dim t As DataTable
For Each t In ds.Tables
Dim myGridTableStyle As DataGridTableStyle = New _
DataGridTableStyle()
Dim col As DataColumn
For Each col In ds.Tables("CalcTable").Columns
Dim c As New DataGridTextBoxColumn()
c.NullText = ""
c.HeaderText = col.Caption
c.MappingName = col.ColumnName
If col Is colDescription Then
c.Width = 150
Else
c.Width = 75
End If
myGridTableStyle.GridColumnStyles.Add(c)
Next
myGridTableStyle.MappingName = t.TableName
DataGrid1.TableStyles.Add(myGridTableStyle)
Next t