以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何设置窗口SQL表样式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55810)
--  作者：石四
--  发布时间：2014/8/23 16:46:00
--  如何设置窗口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
--  作者：Bin
--  发布时间：2014/8/23 16:47:00
--  
select case e.Col.Name
       case "期初本部在制","投料数量","当前本部在制"
                  e.Style = "a"
end select
--  作者：石四
--  发布时间：2014/8/23 17:37:00
--  

OK!两种以上样式:

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