'设置表样式
For Each dt As DataTable In DataTables
'交替行颜色
dt.SysStyles("Alternate").BackColor = Color.LightGray '浅灰色
'当前行颜色
dt.SysStyles("currentrow").BackColor = Color.LightSkyBlue '淡蓝色
DT.SysStyles("focus").BackColor = Color.LightPink '焦点单元格为浅红色
Next
For Each tb As Table In Tables
tb.ListMode = True '整行突出显示
TB.grid.styles.Normal.Border.Color = Color.blue '线条颜色为蓝色
TB.grid.styles.Normal.Border.Style = 7 '1实现;2.双线;…… 7:虚线
TB.grid.styles.Normal.Border.width = 1 '网格线宽度为1
TB.grid.styles.Normal.Border.Direction = 0 '0-2,默认为0. 网格线方向:0全部,1横向,2竖向
Dim fn As new Font("新宋体",10,tb.Font.Style) '设置字体大小
tb.Font = fn
' tb.DefaultRowHeight = 30 '设置行高
tb.SetHeaderRowHeight(25,25)
tb.AutoSizeCols() '自动设置所有列宽
tb.FocusRect = True '突出显示焦点单元格
Next
加好友 
发短信
Post By：2015/12/15 14:40:00 [显示全部帖子]
