以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如果没点击行，有提示。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89259)
--  作者：huhu
--  发布时间：2016/8/18 10:24:00
--  如果没点击行，有提示。
Dim r As Row = Tables("库存管理界面_table7").Current

DataTables("扫描配货明细").LoadFilter = "收货单号 = \'" & r("收货单号") & "\'  and (状态 = \'生产结束扫描完成\' or 状态 = \'生成收货单\')"
DataTables("扫描配货明细").Load



这一个按钮的代码。
需要选择某一行才行，假如没有点击行，希望有个提示。
怎么判断没有点击行呢？
--  作者：大红袍
--  发布时间：2016/8/18 10:28:00
--  

If r is Nothing Then

    msgbox("没有选择行")

    Return

End If