以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教老师,没有可访问的“find”......  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115816)

--  作者:飞云
--  发布时间:2018/3/15 8:54:00
--  请教老师,没有可访问的“find”......
Dim k As Integer
With Tables("临客值班人")
    k=.Find("日期=\'" & e.Form.Controls("txt_rq").text & "\'")
    If k <0 Then \'如果没有找到符合条件的行
        .AddNew()
        .Current("日期")=e.Form.Controls("txt_rq").text
    End If
    
End With
[此贴子已经被作者于2018/3/15 8:54:53编辑过]

--  作者:有点甜
--  发布时间:2018/3/15 9:01:00
--  

.Find 改成 .FindRow

 

http://www.foxtable.com/webhelp/scr/0553.htm