以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求弹出窗口代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=67191)

--  作者:老奤
--  发布时间:2015/4/20 9:28:00
--  [求助]求弹出窗口代码
Dim Val As String = RibbonTabs("工作中心").Groups("办理手续专区").Items("查找").Items("内容").Text
Dim Index As Integer
With CurrentTable
    Index = .FindRow(.Cols(.ColSel).Name & " = \'" & Val & "\'", .Position + 1,True) 
    If Index >= 0 Then
       .Position = Index
    End If
End With
菜单里的超找代码如上,请问高手如何加上 查不到就弹出窗口提示 “没有找到”

--  作者:Bin
--  发布时间:2015/4/20 9:29:00
--  
 If Index >= 0 Then
       .Position = Index
else
 messagebox.show("没有找到")
    End If

--  作者:老奤
--  发布时间:2015/4/22 8:27:00
--  
搞定了,谢谢楼上老师。