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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]修改列标题

共有3381人关注过本帖树形打印复制链接主题：[求助]修改列标题

jygyyl

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

加好友

发短信

等级：一尾狐帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00

[求助]修改列标题 发帖心情

Post By：2014/9/1 11:31:00 [只看该作者]

参考帮助写的代码不执行，代码如下：

If Forms("单(双)独调查").Opened Then

With DataTables("单(双)独调查_W01")

.DataCols("GB103").Caption = "单位代码"

.DataCols("HGB013").Caption = "单位名称"

.DataCols("GB000").Caption = "户编码"

End With

End If

请老师指点什么原因！

另外，有没有办法根据某张表（包括列名和标题等列）通过代码自动更改列标题？

Bin

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

加好友

发短信

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

Post By：2014/9/1 11:32:00 [只看该作者]

DataTables("X").BuildHeader

http://www.foxtable.com/help/topics/1275.htm

jygyyl

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

加好友

发短信

等级：一尾狐帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00

回复：（Bin）DataTables("X").BuildHeaderhttp://www... 发帖心情

Post By：2014/9/1 11:41:00 [只看该作者]

如果采用窗口表代码写到什么地方？

有点甜

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

加好友

发短信

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

Post By：2014/9/1 11:43:00 [只看该作者]

以下是引用jygyyl在2014-9-1 11:41:00的发言：
如果采用窗口表代码写到什么地方？

呃...你在哪里需要修改列标题，就写在哪个事件写代码。

jygyyl

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

加好友

发短信

等级：一尾狐帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00

回复：（有点甜）以下是引用jygyyl在2014-9-1 11:41:0... 发帖心情

Post By：2014/9/1 11:53:00 [只看该作者]

谢谢！我写入窗口的AfterLoad中可以实现。代码如下：

With DataTables("单(双)独调查_W01")

.DataCols("GB103").Caption = "单位代码"

.DataCols("HGB103").Caption = "单位名称"

.DataCols("GB000").Caption = "户编码"

.BuildHeader()
End With

如果能引用指定表设置好的列的列标题就好了！（省事省力）

[此贴子已经被作者于2014-9-1 11:54:11编辑过]

Bin

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

加好友

发短信

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

Post By：2014/9/1 11:59:00 [只看该作者]

可以引用啊. DataTables("单(双)独调查_W01").DataCols("GB103").Caption= DataTables("X").DataCols("XX").Caption

jygyyl

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

加好友

发短信

等级：一尾狐帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00

不是我想要的结果 发帖心情

Post By：2014/9/1 17:20:00 [只看该作者]

这样还是得逐列定义，不是我想要的效果。上传一个例子，请老师指点迷津！

具体想法是：W01表中各列在打开项目或窗口时，列标题引用“oydst_fields”表设定的相同列名对应的列标题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.foxdb

Bin

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

加好友

发短信

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

Post By：2014/9/1 17:22:00 [只看该作者]

莫名奇妙谁对应谁完全看不懂.

有点甜

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

加好友

发短信

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

Post By：2014/9/1 17:33:00 [只看该作者]

AfterOpenProject，代码

For Each dc As DataCol In DataTables("W01").DataCols
    Dim fdr As DataRow = DataTables("oydst_fields").Find("objname = '" & dc.Name & "'")
    If fdr IsNot Nothing Then
        dc.Caption = fdr("objjc")
    End If
Next
DataTables("W01").BuildHeader

jygyyl

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

加好友

发短信

等级：一尾狐帖子：463 积分：4163 威望：0 精华：0 注册：2011/4/5 16:54:00

谢谢甜大师

Post By：2014/9/1 17:55:00 [只看该作者]

谢谢甜大师，我所想到但做不到的，您都能给予热心帮助，真的发自内心的感谢！谢谢！

我的数据表是外部数据，如何加上数据源设置？如果是窗口表（SQLTable）代码是否可以写入窗口事件AfterLoad之中？

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

总数 13 1 2 下一页

主题：[求助]修改列标题