以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 删除表内所有行的按钮代码报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7880)
--  作者：古奇
--  发布时间：2010/8/15 14:06:00
--  [求助] 删除表内所有行的按钮代码报错

With Tables("窗口1_Table1")
    For i As Integer = 0 To .Rows.Count -1
        If .Rows.Count > 0 Then
            .Rows(i).Delete()
        End If
    Next
End With

 

为什么每按一次，只删除一半的行并报错？？？？
--  作者：狐狸爸爸
--  发布时间：2010/8/15 14:09:00
--  

With Tables("窗口1_Table1")

   Dim cnt As Integer  = .Rows.Count - 1
    For i As Integer = cnt To 0 Step -1
        If .Rows.Count > 0 Then
            .Rows(i).Delete()
        End If
    Next
End With
--  作者：古奇
--  发布时间：2010/8/15 14:15:00
--  
呵呵。。。谢狐爸。。。