主题：[原创]对FOXTABLE的权限、列名称、菜单名称使用内部或外部表综合管理

呵呵，如果这样，就更简单了，你用一个配置表，包括三列，分别是：表、列、标题，用于输入各列的标题：

然后在项目的Initialize事件设置代码：

For each dt As DataTable In DataTables
   For Each dc As DataCol  In dt.DataCols
       Dim dr As DataRow
       dr = DataTables("配置").Find("[表] = '" & dt.Name & "' And [列] = '" & dc.Name & "'")
       if dr IsNot Nothing Then
          dc.Caption = dr("标题")
       End If
   Next
Next