以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60593)
--  作者：seintfei
--  发布时间：2014/11/27 16:16:00
--  查询代码
如图

图片点击可在新窗口打开查看此主题相关图片如下：8.gif
图片点击可在新窗口打开查看
在文本框输入“客户简称的内容”，点击旁边按钮，转到对应的行，请问代码怎么写
--  作者：有点甜
--  发布时间：2014/11/27 16:18:00
--  

 用findrow查找行，然后用position定位对应的行

 

 http://www.foxtable.com/help/topics/0553.htm

 
--  作者：seintfei
--  发布时间：2014/11/27 16:49:00
--  
根据文本框的输入查找 代码怎么写
--  作者：Bin
--  发布时间：2014/11/27 16:50:00
--  
把字符串 改为从文本框中获取即可啊   e.form.controls("TextBOx1").text
--  作者：seintfei
--  发布时间：2014/11/27 17:21:00
--  
麻烦老师写个完整代码
--  作者：有点甜
--  发布时间：2014/11/27 17:27:00
--  
With Tables("表A")
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%" & e.form.controls("TextBox1").text  & "%\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With
--  作者：seintfei
--  发布时间：2014/11/27 18:16:00
--  
谢谢

语法好难学...