主题：[求助]点击复选后 删除多行错误

此主题相关图片如下：beb08791-2d1b-40ac-b50c-b2422625c3e4.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.foxdb

点击窗口的 单选按钮 打开复选  然后 复选多行  然后“”删除“”  会出现 部分 删不掉

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