- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助自动设置列标题的按钮代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3382)
-- 发布时间：2009/7/1 16:17:00
-- 求助自动设置列标题的按钮代码
此主题相关图片如下：求助自动设置列标题.jpg
如题:
我使用是SQL2000数据源，求助自动设置列标题的按钮代码。
目的：打开c表，点击按钮，
能够验证：d表。name列=c表。名称，d表。col1列=C表的AA列的列名=，将 AA列 的列标题 设置为 d表。col2列的值
能够验证：d表。name列=c表。名称，d表。col1列=C表的BB列的列名=，将 BB列 的列标题 设置为 d表。col2列的值
.....
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:设置列标题.rar |
[此贴子已经被作者于2009-7-1 17:54:41编辑过]
-- 发布时间：2009/7/1 16:26:00
--
参考下面的代码，最好在Initialize事件中设置标题，而不是运行过程中设置。
Initialize
数据已经加载，所有的DataTable都已经生成，即将生成Table和窗口的时候执行，通常在此添加全局变量，以及针对DataTable的初始化设置。
利用Initialize事件，可以动态设置列标题：
With
DataTables("表B").DataCols("Name").Caption = "姓名"
.DataCols("ID").Caption = "编号"
.DataCols("Date").Caption = "日期"
End With
不能在Initialize事件中出现针对Table、Col和窗口的代码，因为此时上述对象还未生成。
对于你的情况，只需在Initialize设置代码：
For Each dr As DataRow In DataTables("d").DataRows
DataTables(dr("name")).DataCols(dr("col1")).Caption = dr("col2")
Next
这样每次打开项目，就能自动生成标题。
[此贴子已经被作者于2009-7-1 16:41:47编辑过]
-- 发布时间：2009/7/1 17:36:00
--
还是不懂设置，麻烦狐狸爸爸写一下，
-- 发布时间：2009/7/1 17:44:00
--
将一楼的示例文件传上来吧。
-- 发布时间：2009/7/1 17:55:00
--
文件已上传，麻烦狐狸爸爸写一下，
-- 发布时间：2009/7/1 18:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:设置列标题.table |
-- 发布时间：2009/7/1 18:22:00
--
OK
-- 发布时间：2009/7/1 18:22:00
--
能否解释一下意思
-- 发布时间：2009/7/1 18:31:00
--
检查d表的每一行，如果存在此行指定的表，且该表存在此行指定的列，则将该列的标题设置为此行指定的标题：
For Each dr As DataRow In DataTables("d").DataRows
If DataTables.Contains(dr("s_name")) Andalso DataTables(dr("s_name")).DataCols.Contains(dr("s_col1")) Then
DataTables(dr("s_name")).DataCols(dr("s_col1")).Caption = dr("s_col2")
End If
Next
-- 发布时间：2009/7/2 8:50:00
--
打不开.