- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]修改列标题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56221)
-- 发布时间：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
请老师指点什么原因！
另外，有没有办法根据某张表（包括列名和标题等列）通过代码自动更改列标题？
-- 发布时间：2014/9/1 11:32:00
--
DataTables("X").BuildHeader
-- 发布时间：2014/9/1 11:41:00
-- 回复：（Bin）DataTables("X").BuildHeaderhttp://www...
如果采用窗口表代码写到什么地方？
-- 发布时间：2014/9/1 11:43:00
--
以下是引用jygyyl在2014-9-1 11:41:00的发言：
如果采用窗口表代码写到什么地方？
如果采用窗口表代码写到什么地方？
呃...你在哪里需要修改列标题，就写在哪个事件写代码。
-- 发布时间：2014/9/1 11:53:00
-- 回复：（有点甜）以下是引用jygyyl在2014-9-1 11:41:0...
谢谢！我写入窗口的AfterLoad中可以实现。代码如下：
With DataTables("单(双)独调查_W01")
.DataCols("GB103").Caption = "单位代码"
.DataCols("HGB103").Caption = "单位名称"
.DataCols("GB000").Caption = "户编码"
.BuildHeader()End With
如果能引用指定表设置好的列的列标题就好了！（省事省力）
[此贴子已经被作者于2014-9-1 11:54:11编辑过]
-- 发布时间：2014/9/1 11:59:00
--
可以引用啊. DataTables("单(双)独调查_W01").DataCols("GB103").Caption= DataTables("X").DataCols("XX").Caption
-- 发布时间：2014/9/1 17:20:00
-- 不是我想要的结果
这样还是得逐列定义，不是我想要的效果。上传一个例子，请老师指点迷津！
具体想法是：W01表中各列在打开项目或窗口时，列标题引用“oydst_fields”表设定的相同列名对应的列标题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.foxdb |
-- 发布时间：2014/9/1 17:22:00
--
莫名奇妙 谁对应谁完全看不懂.
-- 发布时间：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
-- 发布时间：2014/9/1 17:55:00
-- 谢谢甜大师
谢谢甜大师，我所想到但做不到的，您都能给予热心帮助，真的发自内心的感谢！谢谢！
我的数据表是外部数据，如何加上数据源设置？如果是窗口表（SQLTable）代码是否可以写入窗口事件AfterLoad之中？