以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除条件，怎么写才对？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94648)
--  作者：有点色
--  发布时间：2016/12/28 21:00:00
--  
               Dim xh As DataRow=DataTables("送货单").SQLFind("[单号]=\'" & dh.text &"\'")
               DataTables("main").SQLDeleteFor("[序号] = \'" & xh("序号") & "\'")
--  作者：有点色
--  发布时间：2016/12/28 21:53:00
--  

加上代码

 

DataTables("main").DeleteFor("[序号] = \'" & xh("序号") & "\'")
--  作者：有点色
--  发布时间：2016/12/28 22:11:00
--  
以下是引用liming730323在2016/12/28 21:56:00的发言：
deletefor前面为啥不能加SQL?

 

如果加sql，就是后盖删除，如果不加sql，就是前台删除。

 

你可以两句都写的。
--  作者：wyz20130512
--  发布时间：2016/12/28 22:14:00
--  
SQLDeleteFor()是从后台直接删除，而你看到是Table,此时重新打开项目或再加载一下表数据，就会看到真实的结果。

而且SQLDeleteFor()有一个返回值。
--  作者：wyz20130512
--  发布时间：2016/12/28 23:32:00
--  
Dim xh As DataRow=DataTables("送货单").SQLFind("[单号]=\'" & dh.text &"\'")
With DataTables("main")
    Dim filter As String = "[序号] = \'" & xh("序号") & "\'"
    .SQLDeleteFor(filter)
    .RemoveFor(filter)
End With