一键清除10个副本表中的所有行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一键清除10个副本表中的所有行

共有3515人关注过本帖树形打印复制链接主题：一键清除10个副本表中的所有行

deliangzhaoe

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

等级：小狐帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00

一键清除10个副本表中的所有行 发帖心情

Post By：2019/8/29 11:14:00 [只看该作者]

窗口中加一页面集合，每个页面集合中有一个副本表，共10个副本表，分别为table1-table10,想在窗口中加一个按钮，用于一键清除所有副本表的行，窗口关闭时也清除所有行，按钮和beforeclose分别如何写代码？谢谢

[此贴子已经被作者于2019/8/29 11:14:44编辑过]

有点蓝

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

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

Post By：2019/8/29 11:25:00 [只看该作者]

窗口关闭没有必要清除，副本表会自行销毁。

按钮

dim t as table

for i as integer = 1 to 10

t = tables("窗口1_Table" & i)

for j as integer = t.rows.count - 1 to 0 step -1

t.rows(j).delete

deliangzhaoe

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

等级：小狐帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00

Post By：2019/8/30 18:15:00 [只看该作者]

如果想一键导出这十个副本表的内容，怎么设置按钮代码？

分开导出，导出后还是10个表

有点蓝

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

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

Post By：2019/8/30 20:21:00 [只看该作者]

主题：一键清除10个副本表中的所有行