制表标题栏问题求助？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 制表标题栏问题求助？

共有3535人关注过本帖树形打印复制链接主题：制表标题栏问题求助？

看雪的人

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00

制表标题栏问题求助？ 发帖心情

Post By：2014/6/12 17:07:00 [只看该作者]

有没有比较快的方法或者是常规的做法，把表的标题栏变成甘特图的日期标题栏？

假设我今年制成了以今年日期为准的标题栏，到了明年可以通过一个控制选择可以将标题栏的日期变成明年的，后年同理，或者一次性制作五年的表，通过控件只显示一年的情况！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:客户联系情况记录.rar

此主题相关图片如下：qq截图20140612164734.jpg

此主题相关图片如下：qq截图20140612164809.jpg

有没有办法实现，求助？？？

看雪的人

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00

Post By：2014/6/12 17:08:00 [只看该作者]

这是设计的窗口

此主题相关图片如下：qq截图20140612170518.jpg

看雪的人

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00

Post By：2014/6/12 17:09:00 [只看该作者]

求老师指点！！！

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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)

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：制表标题栏问题求助？