Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:这段代码 用于快速搜索的!

1楼
gaoyong30000 发表于:2011/8/19 20:59:00

Dim txt As String = e.Form.Controls("TextBox7").Text
Dim tbl As Table = Tables("客户档案")
If txt = "" Then
    tbl.filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.filter = "底盘号 Like " & txt & " Or 编号 Like " & txt & " Or 车牌号 Like " & txt & " Or 型号 Like " & txt
End If

 

  我在文本框里的 textchanged 时间里加入的  

 

但是有个问题   filter 是筛选   而我只需要定位就可以了 如何做到?

 

 

2楼
czy 发表于:2011/8/19 21:01:00

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

 

3楼
gaoyong30000 发表于:2011/8/19 21:21:00
 

With CurrentTable
    Dim
r As Integer

    Dim txt As String = e.Form.Controls("TextBox7").Text
      txt = "'*" & txt & "*'"
    r
= .FindRow("[底盘号] Like 'txt'", .Position + 1, True ) '从当前行开始查找
    If
r >= 0 Then '如果找到的话
       
.Position = r '定位到找到的行。
   
End If
End With

 

这样 貌似没效果啊

[此贴子已经被作者于2011-8-19 21:21:26编辑过]
4楼
czy 发表于:2011/8/19 21:32:00
r = .FindRow("[底盘号] Like '" & txt & "'", .Position + 1, True )
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.