以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]关于批量删除，有勾选的时候批量删除勾选，没有勾选时删除当前选中  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125983)

--  作者：tovot --  发布时间：2018/10/11 10:55:00 --  [求助]关于批量删除，有勾选的时候批量删除勾选，没有勾选时删除当前选中 下面的代码是单独删除选中，我想实现有勾选的时候批量删除勾选，没有勾选时删除当前选中。同时要删除对应的明细！ 请老师帮忙修改下！  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:删除.txt

--  作者：tovot --  发布时间：2018/10/11 11:06:00 --   为什么直接发不了代码

--  作者：有点甜 --  发布时间：2018/10/11 11:08:00 --   Dim t As Table = Tables(e.form.name & "_Table1") Dim s As new FoxTools.Tools For i As Integer = t.Rows.count -1 To 0 Step -1     Dim r = t.Rows(i)     If r Is Nothing Then Exit Function     If r("状态")="已审核" Then         s.Dmessage("提示", "操作 【已审核,无法删除】!",getimage("Tools_错误.png"),3,"")     Else         If MessageBox.show("确定删除该项吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then                         Dim cmd As New SQLCommand             cmd.ConnectionName = "主数据源"             \'删除订单明细             cmd.CommandText ="delete from {YW_采购订单明细} where 订单号=\'" & r("订单号") & "\'"             cmd.ExecuteNonQuery             \'删除             r.Delete         End If     End If Next