以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一组按钮能统管多个表么？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140237)
--  作者：yfy13338431925
--  发布时间：2019/9/1 21:27:00
--  一组按钮能统管多个表么？

下下面的实例，一组按钮能统管多个表么？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table
--  作者：有点蓝
--  发布时间：2019/9/1 21:44:00
--  
重复设置代码即可

With Tables("表名1")
    .Position = .Position + 1
End With
With Tables("表名2")
    .Position = .Position + 1
End With
--  作者：yfy13338431925
--  发布时间：2019/9/1 21:53:00
--  
如果按钮是增加一行，表a增了一行，表b不也增了一行么
--  作者：有点蓝
--  发布时间：2019/9/1 21:58:00
--  
没看懂，到底要做什么功能？
--  作者：yfy13338431925
--  发布时间：2019/9/1 22:07:00
--  

当前表是表A时，【新增】和【删除】只对表A有效，当前表是表B时，【新增】和【删除】只对表B有效

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table
--  作者：有点蓝
--  发布时间：2019/9/1 22:55:00
--  
方法1，使用currenttable：http://www.foxtable.com/webhelp/topics/2925.htm
2、判断当前选择的是哪一个页签
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If tab.SelectedPage.Name = "page1"
Tables("表A").AddNew
ElseIf tab.SelectedPage.Name = "page2"
……