以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]点击复选后 删除多行错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130085)

--  作者:blsu33
--  发布时间:2019/1/12 17:54:00
--  [求助]点击复选后 删除多行错误

图片点击可在新窗口打开查看此主题相关图片如下:beb08791-2d1b-40ac-b50c-b2422625c3e4.png
图片点击可在新窗口打开查看

--  作者:blsu33
--  发布时间:2019/1/12 17:54:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.foxdb


--  作者:blsu33
--  发布时间:2019/1/12 17:56:00
--  
点击窗口的 单选按钮 打开复选  然后 复选多行  然后“”删除“”  会出现 部分 删不掉
--  作者:有点甜
--  发布时间:2019/1/13 22:33:00
--  
Dim bxmx As WinForm.Table = e.Form.Controls("tab_bxmx")
If bxmx.Table.Current IsNot Nothing Then
    If MessageBox.Show("是否删除选定多行?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
        For i As Integer = bxmx.Table.Rows.count-1 To 0 Step-1
            Dim r3 = bxmx.Table.Rows(i)
            If r3("选择")=True Then
                r3.Delete
            End If
        Next
    Else
        Return
    End If
End If