以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断是否已经选择行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157671)
--  作者：hopestarxia
--  发布时间：2020/10/25 9:51:00
--  判断是否已经选择行
For Each r As Row In Tables("窗口_Table1").GetCheckedRows
    r.Delete
Next

老师，我想在上面删除选择行的代码上加一个判断，在执行请先判断是否有勾选的行，如果没有，则提示”未选择需要删除的数据行“，请问如何增加代码？

这部份代码应该怎么写？
    msgbox("请先勾选需要删除的行")
    Return
End If

请老师指导。
--  作者：有点蓝
--  发布时间：2020/10/25 20:40:00
--  
dim rs as List(of row) = Tables("窗口_Table1").GetCheckedRows
if rs.count = 0 then
    msgbox("请先勾选需要删除的行")
    Return
End If

For Each r As Row In rs
    r.Delete
Next
--  作者：hopestarxia
--  发布时间：2020/10/26 11:07:00
--  
谢谢！