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

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

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