主题：求助自动设置列标题的按钮代码

此主题相关图片如下：求助自动设置列标题.jpg


如题:
我使用是SQL2000数据源，求助自动设置列标题的按钮代码。
目的：打开c表，点击按钮，
能够验证：d表。name列=c表。名称，d表。col1列=C表的AA列的列名=，将 AA列 的列标题 设置为 d表。col2列的值
能够验证：d表。name列=c表。名称，d表。col1列=C表的BB列的列名=，将 BB列 的列标题 设置为 d表。col2列的值
.....

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:设置列标题.rar

参考下面的代码，最好在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

这样每次打开项目，就能自动生成标题。

还是不懂设置，麻烦狐狸爸爸写一下，

将一楼的示例文件传上来吧。

文件已上传，麻烦狐狸爸爸写一下，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:设置列标题.table

OK

能否解释一下意思

检查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

打不开.