I'v seen others asking how to do this. This is how I got it done
' call Web Service for Datase
Dim DataSetName As DataSet = SearchDeal(par1, par2
'test that you have a dataset with value
Dim strTest As String = DataSetName.GetXm
If Not (strTest = "<NewDataSet />") The
'create tablestyl
Dim tableStyle As New DataGridTableStyle(
' set to table dataset nam
tableStyle.MappingName = "TabelName
'get element count from datase
Dim numCols As Intege
numCols = DataSetName.Tables("TableName").Columns.Coun
Dim i As Integer =
' loop thru dataset to create column
Do While (i < numCols
Dim myDataCol As New DataGridTextBoxColumn(
myDataCol.HeaderText = DataSetName.Tables("TableName").Columns(i).ColumnNam
myDataCol.MappingName = DataSetName.Tables("TableName").Columns(i).ColumnNam
tableStyle.GridColumnStyles.Add(myDataCol
i = i +
Loo
'set Header background color and font colo
tableStyle.HeaderBackColor = System.Drawing.Color.MidnightBlu
tableStyle.HeaderForeColor = System.Drawing.Color.WhiteSmok
' for colums you wish to hide, set width value to 0 or -
tableStyle.GridColumnStyles(44).Width = "0
tableStyle.GridColumnStyles(45).Width = "0
DataGrid1.TableStyles.Clear(
DataGrid1.TableStyles.Add(tableStyle
'bind dataset to Gri
DataGrid1.DataSource = DataSetName.Tables("TableName"
End If