以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求以下代码的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60890)
--  作者：海阔天空pl
--  发布时间：2014/12/3 13:46:00
--  求以下代码的问题

Dim Result As DialogResult
Result = MessageBox.Show("你确定要清除已收款单据吗？","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
If Result = DialogResult.Ok  Then
    For Each r As Row In Tables("应收款").Rows
        If r("未结算") = 0 Then
            r.Delete
        End If
    next

End if

 

做了个清除数据的按钮，每次点按都清除不净，只清除一部分，要连续点按几次才行
--  作者：Bin
--  发布时间：2014/12/3 14:03:00
--  
For i As Integer = Tables("应收款").Rows.count-1 To 0 Step -1
        If Tables("应收款").Rows(i)("未结算") = 0 Then
            Tables("应收款").Rows(i).Delete
        End If
    next
--  作者：海阔天空pl
--  发布时间：2014/12/3 14:10:00
--  

多谢！