以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐表代码对外部库不执行，如何解决？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169943)
--  作者：lin98
--  发布时间：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("")
--  作者：有点蓝
--  发布时间：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