以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表的列标题?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71243)
--  作者：wyz20130512
--  发布时间：2015/7/8 0:03:00
--  [求助]表的列标题?
为何用代码设置的列标题不能保存?

\'代码设置列标题

With DataTables("考勤输出")

    .DataCols("rq").Caption = "日期"

    .DataCols("xm").Caption = "姓名"

    For i As Integer = 1 To 31

        If i < 10 Then

            .DataCols("d0" & i & "r_s").Caption = i & "日_上午"

            .DataCols("d0" & i & "r_x").Caption = i & "日_下午"

        Else

            .DataCols("d" & i & "r_s").Caption = i & "日_上午"

            .DataCols("d" & i & "r_x").Caption = i & "日_下午"

        End If

    Next

    .BuildHeader() \'重新生成表头

End With

 

Tables("考勤输出").AutoSizeCols() \'自动设置所有列的宽度


以上代码执行并保存后,重启项目后,表的列标题还是以列名显示,这是为何?
--  作者：大红袍
--  发布时间：2015/7/8 0:07:00
--  
 你这段代码必须写到afteropenproject事件去。
--  作者：wyz20130512
--  发布时间：2015/7/8 0:28:00
--  回复：（大红袍）?你这段代码必须写到afteropenp...
哦!谢谢"大红袍"老师!这个我知道,

我是说手工改写列标题可以保存,为何代码却不能,而要将代码放到事件中,每次启动项目时再自动执行一次呢?
[此贴子已经被作者于2015/7/8 0:43:31编辑过]
--  作者：大红袍
--  发布时间：2015/7/8 9:13:00
--  

 手工改写的，保存到foxtable里面去了，代码改写的，不会保存。

 

 必须每次都运行一次。