以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118263)
--  作者：happy2010
--  发布时间：2018/4/27 17:01:00
--  窗口查询
如何根据文本框输入的编号，点击打开按钮，能在另一个窗口中看到该编号的详细内容，请老师指点下。
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180427165736.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/4/27 17:12:00
--  

With Tables("表A")
    Dim r As Integer
    r = .FindRow("第一列 = \'" & e.form.controls("TextBox1").Text & "\'") \'从 第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
        Forms("窗口2").show
    Else
        msgbox("没找到")
    End If
End With