Cf 2.0 usage of DataGrid tablestyles

Public Function dgstyle11 () as datagridtablestyle
'Second Style
Dim ts11 as datagridtablestyle = new datagridtablestyle
Ts11.mappingname = "style11"

Dim cs11 as datagridcolumnstyle = new datagridtextboxcolumn
Cs11.mappingname = "item number"
Cs11.headertext = "item"
Cs11.width = 50

Ts11.gridcolumnstyles. Add (cs11)

Dim cs12 as datagridcolumnstyle = new datagridtextboxcolumn
Cs12.mappingname = "Description"
Cs12.headertext = "Description"
Cs12.width = 100
Ts11.gridcolumnstyles. Add (cs12)

Dim cs13 as maid = new maid
Cs13.mappingname = "cpcount"
Cs13.headertext = "check"
Cs13.width = 30
Ts11.gridcolumnstyles. Add (cs13)

Dim cs14 as datagridcolumnstyle = new datagridtextboxcolumn
Cs14.mappingname = "stock"
Cs14.headertext = "system check"
Cs14.width = 30
Ts11.gridcolumnstyles. Add (cs14)

Dim cs15 as datagridcolumnstyle = new datagridtextboxcolumn
Cs15.mappingname = "Diff"
Cs15.headertext = "difference"
Cs15.width = 30
Ts11.gridcolumnstyles. Add (cs15)

Dim cs16 as datagridcolumnstyle = new datagridtextboxcolumn
Cs16.mappingname = "PG"
Cs16.headertext = "PG"
Cs16.width = 20
Ts11.gridcolumnstyles. Add (cs16)

Dim cs17 as datagridcolumnstyle = new datagridtextboxcolumn
Cs17.mappingname = "Shop"
Cs17.headertext = "Shop"
Cs17.width = 50
Ts11.gridcolumnstyles. Add (cs17)

Return ts11
End Function

 

Dg1.tablestyles. Add (dgstyle11)