Foxtable(狐表)用户栏目专家坐堂 → 狐表代码对外部库不执行,如何解决?


  共有2912人关注过本帖树形打印复制链接

主题:狐表代码对外部库不执行,如何解决?

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1145 积分:7566 威望:0 精华:0 注册:2020/11/4 22:15:00
狐表代码对外部库不执行,如何解决?  发帖心情 Post By:2021/7/7 9:13:00 [只看该作者]

下面代码,只对内表有效执行,对ACCESS,SQL无效,它只对窗口的表执行删除,清空,采用外部表没对ACCESS,SQL的表的数据进行删除,清空,如何处理?
代码一
With Tables("主表")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With

代码二
'清空关联表主表和明细
DataTables("主表").RemoveFor("")
DataTables("明细").RemoveFor("")

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107880 积分:548763 威望: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


 回到顶部