*on load*
Dim aGridTableStyle As New DataGridTableStyle()
aGridTableStyle.MappingName = "Detail"
Dim aCol1 As New DataGridTextBoxColumn()
Dim aCol2 As New DataGridTextBoxColumn()
Dim aCol3 As New DataGridTextBoxColumn()
' Hide column 1 by setting its width to 0.
With aCol1
.MappingName = "M_date" 'dataset column
.HeaderText = "Date"
.Width = 55
.Format = "dd/MM/yy"
.NullText = " "
.TextBox.MaxLength = 8
End With
With aCol2
.MappingName = "M_dollor"
.Width = 65
.Format = "n0"
.NullText = "0"
.TextBox.MaxLength = 7
End With
With aCol3
.MappingName = "M_cent"
.Width = 30
.Format = "n0"
.NullText = "00"
.TextBox.MaxLength = 2
End With
With aGridTableStyle.GridColumnStyles
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
End With
'Add the GridColumnStyles to the aGridTableStyle.
DataGrid1.TableStyles.Add(aGridTableStyle)
:: Momiji lo
