主题：[求助]

单独做一个按钮，执行下面的代码

Dim tnames() As String = {"Month9", "Month10"}
For Each tname As String In tnames
    For Each s As String In DataTables(tname).GetValues("xingming")
        Dim fdr As DataRow = DataTables("sdt").find("xingming = ''" & s & "")
        If fdr Is Nothing Then
            Dim ndr As DataRow = DataTables("sdt").addnew
            ndr("xingming") = s
        End If
    Next
Next

导入系统菜单

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

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