主题：[求助]FoxTable居然复制不了表

 把你的项目发上来测试一下。

 你也可以用导出，导入的方式，模拟【复制表】功能

 有必要复制那么多同样表结构的表？这样设计思路有问题。如果表结构一样，用一张表就行了。

1、你可以加入部门列，那用一个表就可以了，建议你这样做

2、确实是无法直接复制表，你如果需要，可以用 导出、导入的方式 http://www.foxtable.com/webhelp/scr/0182.htm

     导入后，记得重定向到外部数据源 http://www.foxtable.com/webhelp/scr/1565.htm

1、做一个模板表，这个表用于填入各个科目的值。多加一列【编号】

2、每个部门的数据，根据模板表自动添加行自动填充内容。要填入模板的【编号】列。

3、可以设置父子关联，子表用表达式列直接引用父表各列的数据就行了，修改父表，子表自动修改。

参考

http://www.foxtable.com/webhelp/scr/1533.htm

http://www.foxtable.com/webhelp/scr/0680.htm

 回复14楼，参考

http://www.foxtable.com/webhelp/scr/2490.htm

做一个按钮

Dim bm As String
If InputValue(bm, "添加", "请输入部门名:") Then
    For i As Integer = 0 To Tables("表A").Rows.Count - 1
        Dim dr = DataTables("表B").AddNew
        dr("部门") = bm
        For Each c As Col In  Tables("表A").Cols
            dr(c.Name) = Tables("表A").Rows(i)(c.Name)
        Next
    Next
End If