
加好友 发短信
等级:超级版主
帖子:113717
积分:579146
威望:0
精华:9
注册:2015/6/24 9:21:00
|
Post By:2021/7/7 9:32:00 [显示全部帖子]
代码一 With Tables("主表") dim r as row = .Current If r IsNot Nothing Then r.Delete r.save End If End With
代码二 '清空关联表主表和明细 DataTables("主表").DeleteFor("") DataTables("主表").save DataTables("明细").DeleteFor("") DataTables("明细").save
|
|