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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码合并

共有4578人关注过本帖树形打印复制链接主题：代码合并

7032175

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

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

代码合并

Post By：2013/4/28 8:14:00 [只看该作者]

第一段代码（增加多行）

Dim Val As Integer

If InputValue(Val, "增加行", "请输入要增加的行数:") Then

Tables("理化检测").AddNew(Val)

End If

第二段代码（清空表）

CurrentTable.StateFilter = StateFilterEnum.Added '清空表

如何能让这个二个代码合并在一起先执行清空表，后执行增加多行。

小猪鑫鑫

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

等级：四尾狐帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00

Post By：2013/4/28 8:37:00 [只看该作者]

楼主:不知道这样能否满足你的要求,先不保存清屏,然后再增加行

datatables("理化检测").LoadFilter ="_Identify is null"

datatables("理化检测").Load(false)

Dim Val As Integer

If InputValue(Val, "增加行", "请输入要增加的行数:") Then

Tables("理化检测").AddNew(Val)

End If

don

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

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/4/28 8:40:00 [只看该作者]

CurrentTable.StateFilter = StateFilterEnum.Added

不是清空,而是显示新增行!

合并:

Dim Val As Integer

If InputValue(Val, "增加行", "请输入要增加的行数:") Then

Tables("理化检测").AddNew(Val)

End If

CurrentTable.StateFilter = StateFilterEnum.Added

主题：代码合并