以下是多行删除代码：
With Tables("顾客档案表")
For i As Integer = .BottomPosition To .TopPosition Step -1
.Rows(i).Delete()
Next
End With
加好友 
发短信
Post By：2014/5/11 11:06:00 [显示全部帖子]
