主题：[求助]请教关于表列标题的问题

我在学习狐表的过程中遇到一个难题不知道如何实现请教各位大大：

论坛中有例子，可以自行搜索一下。

If DataTables.Contains("动态表列") = False Then
    Dim Builder As New ADOXBuilder
    Dim tbl As ADOXTable
    Builder.Open()
    tbl = Builder.NewTable("动态表列") '创建表
    With tbl
        For Each r As Row In Tables("表A").Rows
            If r("证书编号") > "" Then
                .AddColumn(r("证书编号") ,ADOXType.String, 16)
            End If
        Next
    End With
    Builder.AddTable(tbl) '增加表
    Builder.Close()
    Syscmd.Project.Open(ProjectFile)
Else
    Dim str1,str2 As String
    For Each r As Row In Tables("表A").Rows
        If r("证书编号") > "" Then
            str1 + = r("证书编号") & "|"
        End If
    Next
    For Each dc As DataCol In DataTables("动态表列").DataCols
        str2 + = dc.Name & "|"
    Next
    If str1 <> str2 Then
        Dim Builder As New ADOXBuilder
        Builder.Open() '打开ADOXBuilder
        With Builder.Tables("动态表列")
            For Each r As Row In Tables("表A").Rows
                If r("证书编号") > "" AndAlso str2.Contains(r("证书编号")) = False Then
                    .AddColumn(r("证书编号") ,ADOXType.String, 16)
                End If
            Next
            For Each s As String In str2.Trim("|").Split("|")
                If str1.Contains(s) = False Then
                    With Builder.Tables("动态表列")
                        .DeleteColumn(s)
                    End With
                End If
            Next
        End With
        Builder.Close() '关闭ADOXBuilder
        Syscmd.Project.Open(ProjectFile)
    End If
End If

真心谢谢

如果反过来做，怎么写，谢谢

反过来也是差不多的,你不可以使用系统菜单的增加列,而是使用自己编码的按钮.

还在吗，可以qq联系，我能解决你说的问题。1284524409