Foxtable(狐表)用户栏目专家坐堂 → [求助]关于批量删除,有勾选的时候批量删除勾选,没有勾选时删除当前选中


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

主题:[求助]关于批量删除,有勾选的时候批量删除勾选,没有勾选时删除当前选中

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


加好友 发短信
等级:幼狐 帖子:132 积分:1358 威望:0 精华:0 注册:2016/10/26 23:32:00
[求助]关于批量删除,有勾选的时候批量删除勾选,没有勾选时删除当前选中  发帖心情 Post By:2018/10/11 10:55:00 [只看该作者]

下面的代码是单独删除选中,我想实现有勾选的时候批量删除勾选,没有勾选时删除当前选中。同时要删除对应的明细!
请老师帮忙修改下!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:删除.txt



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


加好友 发短信
等级:幼狐 帖子:132 积分:1358 威望:0 精华:0 注册:2016/10/26 23:32:00
  发帖心情 Post By:2018/10/11 11:06:00 [只看该作者]

为什么直接发不了代码

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部