以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按文本框内容定位  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185081)
--  作者：shqpldczj
--  发布时间：2023/2/2 22:54:00
--  按文本框内容定位
Dim fphm As WinForm.TextBox = e.Form.Controls("发票号码")
Dim f As String = fphm.Value
With  Tables("发票")
    Dim r As Integer
    r = .FindRow("[发票号码] Like \'"& f &"\'") \'从 第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With


现有代码只能按完整的发票代码来定位，我想做到输入四位尾号就能定位。请教蓝老师
--  作者：有点蓝
--  发布时间：2023/2/2 23:13:00
--  
先仔细看看like的用法：http://www.foxtable.com/webhelp/topics/0102.htm

r = .FindRow("[fa piao号码] Like \'%"& f &"\'")
--  作者：shqpldczj
--  发布时间：2023/2/3 9:24:00
--  定位
可以了，谢谢

[此贴子已经被作者于2023/2/3 9:26:28编辑过]