以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码合并  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32244)
--  作者：7032175
--  发布时间：2013/4/28 8:14:00
--  代码合并
第一段代码（增加多行）

Dim Val As Integer 
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    Tables("理化检测").AddNew(Val)
End If

第二段代码（清空表）

CurrentTable.StateFilter = StateFilterEnum.Added  \'清空表

如何能让这个二个代码合并在一起先执行清空表，后执行增加多行。
--  作者：小猪鑫鑫
--  发布时间：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
--  发布时间：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