主题：如果从统计表中获取填充数据

先这样处理，

Dim dic As new Dictionary(of String, String)
For Each dc As DataCol In DataTables("统计表1").DataCols
    dic.Add(dc.Caption, dc.Name)
Next

使用的时候，这样处理

If dic.ContainsKey("第一列") Then
    msgbox(dic("第一列"))
End If