Dim t As Table = Tables("表A") Dim cant As Boolean = False For i As Integer = t.TopPosition To t.BottomPosition If t.rows(i)("第一列") <> Nothing Then cant = True Exit For End If Next If cant Then msgbox("不能删除") Else For i As Integer = t.BottomPosition To t.TopPosition Step -1 t.rows(i).Delete Next End If
加好友 
发短信
Post By：2017/10/18 15:00:00 [显示全部帖子]
