主题：如何设置窗口SQL表样式

单列:

1、在窗口的AfterLoad事件中加入代码：

DataTables("窗口1_Table1").AddUserStyle("a", Color.Red, Color.White)

上述代码增加了一个红底白字的样式，样式名为"a"。

2、然后设置Table控件的DrawCell事件代码：

If e.Col.Name = "数量" Then
           e.Style = "a"
  End If

多列的代码怎么写?

我这样写不行呢:

Dim abc As String() = {"期初本部在制","投料数量","当前本部在制"}

If e.Col.Name = "abc" Then

           e.Style = "a"

   End If

OK!两种以上样式:

Select Case e.Col.Name
    Case "期初本部在制","投料数量","当前本部在制"
        e.Style = "a"   
 Case "期初外协在制","外协出库","外协入库","当前外协在制"
        e.Style = "b"         
End Select