以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  增加多个临时列后，最后列设置标题无效  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25504)
--  作者：qtcks
--  发布时间：2012/11/10 14:10:00
--  增加多个临时列后，最后列设置标题无效
Dim i As Integer
Dim dt As DataTable = DataTables("表C")
Dim dc As DataCol
For i = 0 To 5
    dc =dt.DataCols.add("fu" &i, Gettype(String), 255) \'新增列
    Tables(dt.name).Cols(dc.name).Width = 70 \'设列宽
    Tables(dt.name).Cols(dc.name).Caption = "FoxTable-" & i \'设标题名称
    Tables(dt.name).SetHeaderCellBackColor(dc.name,color.MediumSlateBlue) \'设标题颜色
Next


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20121110140947.jpg
图片点击可在新窗口打开查看



另外如何设置列的背景色呀？
--  作者：lin_hailun
--  发布时间：2012/11/10 14:31:00
--  
 看看celldraw事件

http://www.foxtable.com/help/topics/0656.htm
--  作者：blackzhu
--  发布时间：2012/11/10 14:32:00
--  
 

Dim i As Integer
Dim dt As DataTable = DataTables("表C")
Dim dc As DataCol
For i = 0 To 5
    dc =dt.DataCols.add("fu" &i, Gettype(String), 255) \'新增列
    Tables(dt.name).Cols(dc.name).Width = 70 \'设列宽
    Tables(dt.name).Cols(dc.name).Caption = "FoxTable-" & i \'设标题名称
    DataTables(dt.name).BuildHeader()
    Tables(dt.name).SetHeaderCellBackColor(dc.name,color.MediumSlateBlue) \'设标题颜色
Next
--  作者：qtcks
--  发布时间：2012/11/10 14:49:00
--  
谢谢了。
[此贴子已经被作者于2012-11-10 14:48:51编辑过]