主题：[求助]如何切换表标题与列名？

 name转caption

For Each dc As DataCol In DataTables("表A").DataCols
    If dc.DefaultValue = "" Then
        dc.DefaultValue = iif(dc.Caption>"", dc.Caption, dc.Name)
    End If
    dc.Caption = dc.Name
Next

DataTables("表A").BuildHeader

 标题转名称

For Each dc As DataCol In DataTables("表A").DataCols
    If dc.DefaultValue <> "" Then
        dc.Caption = dc.DefaultValue
    End If
Next

DataTables("表A").BuildHeader