老师,按钮按第二次下面代码就不提示了就直接删除行了。
代码设置位置 Click (按钮)
With Tables("通讯录")
If .Current IsNot Nothing Then
.Current.Delete
End If
End With
Dim r As Row = Tables("通讯录").Current
If r Is Nothing Then
Return
End If
If r.Isnull("第一列") AndAlso r.Isnull("第二列") AndAlso r.Isnull("第三列") AndAlso r.Isnull("第四列") AndAlso r.Isnull("第五列") AndAlso r.Isnull("第六列") Then
r.Delete()
Else
Messagebox.show("请先删除图片列内容,才能删除行!")
End If