表的切换 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表的切换

共有2478人关注过本帖树形打印复制链接主题：表的切换

aaa1234

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

表的切换

Post By：2021/9/8 8:48:00 [只看该作者]

老师您好，我想问一下，我双击表进入录入窗口，然后我弄了个按钮直接可以打开录入窗口，但是新增不了，但是双击表就新增加的了，我点击一下表打开录入窗口的按钮也可以新增的了，我想可不可以做个按钮先单机表再打开录入窗口

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/8 8:56:00 [只看该作者]

怎么做的新增？使用代码？还是菜单的新增？

aaa1234

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/9/8 9:05:00 [只看该作者]

打开录入窗口

Forms("录入窗口").open()

新增加的代码

vars("b") =True

If vars("t") > ""

Tables(vars("t")).addnew()

Tables("Table_3").AddNew()

With Forms("录入窗口").Controls("TextBox17")

If .Value Is Nothing Then

Tables("TABLE_3").Current("处理人") =User.Name

End If

End With

End If

[此贴子已经被作者于2021/9/8 9:05:51编辑过]

aaa1234

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00

Post By：2021/9/8 9:07:00 [只看该作者]

已经解决了老师

[此贴子已经被作者于2021/9/8 9:25:54编辑过]

主题：表的切换