以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]查找判断（已解决）  (http://foxtable.net/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
--  
谢谢甜老师的指教，代码符合需要的效果，再次衷心感谢甜老师。