主题：关于代码通用

没怎么明白你的问题。

1、按钮可以通用，上面的是一个隐藏页签的TabControl，用于放不同的表，下面是你的按钮。
2、删除表，肯定就删除了窗口，小心不要删除表就行。

隐藏页签，参考：
http://www.foxtable.com/help/topics/2383.htm

 你可以在增加按钮加上判断代码：

Dim tc As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim nm As String
Select Case tc.SelectedPage.Text
    Case "页面标题1"
        nm = "表名1"
    Case "页面标题2"
        nm = "表名2"
    Case "页面标题3"
        nm = "表名4"
    Case Else
        Return
End Select
Tables(nm).Addnew()

其余按钮也一样。

至于删除表，我们会考虑在有窗口的情况下禁止删除表