主题：菜单设计求助

1、将你的项目文件复制一份，然后打开这个复制的文件，清除所有数据。

Dim dlg As new SaveFileDialog
dlg.Filter= "Foxtable文件|*.Table"
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyFile(ProjectFile,dlg.FileName,True)
    Syscmd.Project.Open(dlg.filename)
    For Each dt As DataTable In DataTables
        dt.DataRows.clear
    Next
End If

2和3，可以看看：

http://www.foxtable.com/help/topics/1080.htm