批量设置表样式，新手参考，老手优化，谢谢。

For Each tb As Table In Tables

    tb.UseVisualStyle = False \'关闭系统界面风格,否则部分设置不起作用

    tb.ListMode = True   \'整行突出显示

    tb.FocusRect = False \'不突出显示焦点单元格

    tb.grid.ScrollBars = 0 \'设置滚动条(0不显示,1水平显示,2垂直显示,3全部显示)

    tb.grid.styles.Normal.Border.Color = Color.DarkGray \'网格线条颜色

    tb.grid.styles.Normal.Border.Style = 1     \'网格线条类型,1实线;2.双线;……  7:虚线

    tb.grid.styles.Normal.Border.width = 1     \'网格线宽度

    tb.grid.styles.Normal.Border.Direction = 2 \'网格线方向:0横竖,1横向,2竖向

    tb.Grid.Styles("UnchangedRowHeader").ForeColor = Color.White \'行号字体颜色

    tb.Grid.Styles("UnchangedRowHeader").BackColor = color.Black \'行号背景颜色

    tb.Grid.Styles("AddedRowHeader").ForeColor = Color.White \'新增行号字体颜色

    tb.Grid.Styles("AddedRowHeader").BackColor = color.Black \'新增行号背景颜色

    tb.Grid.Styles("Fixed").ForeColor = Color.White \'标题行字体颜色

    tb.Grid.Styles("Fixed").BackColor = color.Black \'标题行背景颜色

    tb.Grid.Styles("Normal").BackColor = color.DimGray \'数据区背景颜色

    tb.Grid.Styles("Normal").ForeColor = color.Silver \'数据区字体颜色

    tb.Grid.Styles("EmptyArea").BackColor = Color.Transparent \'空白区背景颜色

    tb.Grid.Styles("CurrentRow").BackColor = Color.Black \'当前行背景颜色

    tb.Grid.Styles("CurrentRow").ForeColor = Color.White \'当前行字体颜色

    tb.Font = new Font("微软雅黑",10,FontStyle.Regular) \'设置字体大小及样式

    tb.SetHeaderRowHeight(25,25) \'标题行高度

    tb.DefaultRowHeight  = 25 \'行高

Next

 mark

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75030&authorid=0&page=0&star=1