Foxtable(狐表)用户栏目专家坐堂 → 删除条件,怎么写才对?


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

主题:删除条件,怎么写才对?

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


加好友 发短信
等级:三尾狐 帖子:705 积分:5411 威望:0 精华:0 注册:2014/3/15 23:14:00
删除条件,怎么写才对?  发帖心情 Post By:2016/12/28 20:23:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/28 21:00:00 [只看该作者]

               Dim xh As DataRow=DataTables("送货单").SQLFind("[单号]='" & dh.text &"'")
               DataTables("main").SQLDeleteFor("[序号] = '" & xh("序号") & "'")

 回到顶部
帅哥哟,离线,有人找我吗?
liming730323
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:5411 威望:0 精华:0 注册:2014/3/15 23:14:00
  发帖心情 Post By:2016/12/28 21:41:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/28 21:53:00 [只看该作者]

加上代码

 

DataTables("main").DeleteFor("[序号] = '" & xh("序号") & "'")


 回到顶部
帅哥哟,离线,有人找我吗?
liming730323
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:5411 威望:0 精华:0 注册:2014/3/15 23:14:00
  发帖心情 Post By:2016/12/28 21:56:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/28 22:11:00 [只看该作者]

以下是引用liming730323在2016/12/28 21:56:00的发言:
deletefor前面为啥不能加SQL?

 

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

 

你可以两句都写的。


 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1242 积分:9386 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/12/28 22:14:00 [只看该作者]

SQLDeleteFor()是从后台直接删除,而你看到是Table,此时重新打开项目或再加载一下表数据,就会看到真实的结果。

而且SQLDeleteFor()有一个返回值。

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1242 积分:9386 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By: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

 回到顶部