以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  findrow的这段代码哪里错了?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107185)

--  作者:huangxueyao
--  发布时间:2017/9/22 19:23:00
--  findrow的这段代码哪里错了?
With Tables("副-分拣扫码窗_table1")
    .Position = 0
    If .Current("实发量") = "" Then
        Forms("副-分拣输入窗").open
    Else
        MessageBox.show("部分客户已经分拣过了,现自动从尚未分拣的客户开始")
        Dim r As Integer
        r = .FindRow("[实发量] = \'\'") \'从 第一行开始查找
        If r >= 0 Then \'如果找到的话
            .Position = r \'定位到找到的行.
            Forms("副-分拣输入窗").open
        End If
    End If
End With

很奇怪,能够执行到findrow这句,说明存在符合条件的行,但是r都是返回-1,怎么回事?是不是副表不能用findrow?


--  作者:huangxueyao
--  发布时间:2017/9/22 19:50:00
--  
明白了,应该是空值的判断出错了,要用is null