- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 增加多个临时列后，最后列设置标题无效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25504)
-- 发布时间：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
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
另外如何设置列的背景色呀？
-- 发布时间：2012/11/10 14:31:00
--
看看celldraw事件
http://www.foxtable.com/help/topics/0656.htm
-- 发布时间：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
-- 发布时间：2012/11/10 14:49:00
--
谢谢了。
[此贴子已经被作者于2012-11-10 14:48:51编辑过]