以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]查找判断(已解决)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59357)

--  作者:yyzlxc
--  发布时间:2014/11/2 21:33:00
--  [求助]查找判断(已解决)
效果:在“工票码”列中从第一行开始找不含“已回收”结束的数据行,如果找不到,dr = -1。执行下面代码,dr = 0,如何修改代码,使dr = -1,请各位老师指教,谢谢!


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看


    With Tables("工票信息")
        Dim dr As Integer
        dr = .FindRow("工票码 Like \'%已回收\'") \'从第一行开始查找
        If dr = -1 Then \'如果找不到的话
            MessageBox.Show("工票回收完成","提示")
        End If
    End With
[此贴子已经被作者于2014-11-2 21:40:11编辑过]

--  作者:有点甜
--  发布时间:2014/11/2 21:36:00
--  
dr = .FindRow("工票码 not Like \'%已回收\'") \'从第一行开始查找
--  作者:yyzlxc
--  发布时间:2014/11/2 21:40:00
--  
谢谢甜老师的指教,代码符合需要的效果,再次衷心感谢甜老师。