- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 制表标题栏问题求助？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52289)
-- 发布时间：2014/6/12 17:07:00
-- 制表标题栏问题求助？
有没有比较快的方法或者是常规的做法，把表的标题栏变成甘特图的日期标题栏？
假设我今年制成了以今年日期为准的标题栏，到了明年可以通过一个控制选择可以将标题栏的日期变成明年的，后年同理，或者一次性制作五年的表，通过控件只显示一年的情况！
此主题相关图片如下：qq截图20140612164734.jpg
此主题相关图片如下：qq截图20140612164809.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:客户联系情况记录.rar |
此主题相关图片如下：qq截图20140612164734.jpg此主题相关图片如下：qq截图20140612164809.jpg有没有办法实现，求助？？？
-- 发布时间：2014/6/12 17:08:00
--
这是设计的窗口
此主题相关图片如下：qq截图20140612170518.jpg
-- 发布时间：2014/6/12 17:09:00
--
求老师指点！！！
-- 发布时间：2014/6/12 17:14:00
--
改列标题
For Each c As Col In Tables("表A").Cols
c.Caption="2015年" & c.Caption.SubString(5,c.Caption.length-5)
Next
-- 发布时间：2014/6/12 17:38:00
--
呃，没有快捷的方法，动态增加列，1年要十几秒
TextChanged 事件
If e.Sender.Text > "" Then
DataTables("客户联系情况记录").StopRedraw
DataTables("客户联系情况记录").Fill("select * from {客户联系情况记录}", False)
For Each ary As String In e.Sender.Text.Split(",")
Dim year As Integer = ary.SubString(0, 4)
Dim d As Date = new Date(year, 1, 1)
Do until d.Year <> year
DataTables("客户联系情况记录").DataCols.Add(d.Year & "年" & d.Month & "月_" & d.Day, Gettype(Integer))
d = d.AddDays(1)
Loop
Next
DataTables("客户联系情况记录").ResumeRedraw
End If