- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自制查找窗的问题-已解決 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33506)
-- 发布时间：2013/5/19 20:15:00
-- 自制查找窗的问题-已解決
做了一个窗体
查找窗
此主题相关图片如下：未命名.jpg
在模号 窗口可以输入要找的模号
然后在 确定键
设下代码为:
Dim tab0 = Tables("主页")(0,"表名")\'
With Tables(tab0)
Dim ta1 As String = Tables("主页")(0,"查找款号")\'
Dim r As Integer
r = .Find( ta1, .RowSel + 1, "模号", False, False, True)
If r > - 1 Then \'如果找到符合条件的行
.Position = r \'则选择该行
End If
End With
这样可以在进度表的模号列
搜出以键入的字为首的模号
如键入
"TWR" 就能在模号列 , 搜出以 以TWR为首的模号 , 如 : "TWR559", "TWR780" 等等
如何做到包含的效果, 如鍵入 "559" , 能搜出 模号 如: "TWR559" , "559AR"
找帮助文件很久也寻不到答案.
求教!
[此贴子已经被作者于2013-5-22 20:40:53编辑过]
-- 发布时间：2013/5/19 20:22:00
--
Tables("主页").Filter = "模号列=\'*" & 文本框的值 & "\'*"
-- 发布时间：2013/5/19 20:44:00
--
改了一下 发现篩选不果
Dim tab0 = Tables("主页")(0,"表名")\'
Dim ta1 As String = Tables("主页")(0,"查找款号")\'
Tables(tab0).Filter = "模号=\'*" & ta1 & "*\'"
找不到..
-- 发布时间：2013/5/20 7:25:00
--
写的什么呀? 那个代码只要改成你的表名和列名 以及文本框的值就可以了.
-- 发布时间：2013/5/20 21:22:00
--
就是按这样做
结果是一行都不显示
-- 发布时间：2013/5/20 21:43:00
--
table的Find方法
Find(StrFind, RowStart, ColName, caseSensitive, fullMatch, Wrap)
fullMatch参数：
逻辑型，是否完全匹配，如果设为False，那么查找“北京”,“北京市”也符合要求。并未说明“北北京”是否符合要求。
经测试，“北北京”是不符合要求的，也就是说，设为false，相当于是查找“北京*”，而不是“*北京*”
-- 发布时间：2013/5/20 23:01:00
--
就是了,现在想做到就是能达到这个效果
-- 发布时间：2013/5/21 6:19:00
--
个人觉得你这样比较合适，看这里的示例一：
http://www.foxtable.com/help/topics/0553.htm
-- 发布时间：2013/5/22 20:36:00
--
果然成功
看來我又繞了一个大圈
原來这个就能做到了.
Dim ta1 As String = Tables("主页")(0,"查找款号")\'
With CurrentTable
Dim r As Integer
r = .FindRow("[模号] Like \'*" & ta1 & "*\'", .Position + 1, True ) \'从当前行开始查找
If r >= 0 Then \'如果找到的话
.Position = r \'定位到找到的行.
Else
MessageBox.Show("沒有此模号!","提示")
End If
End With
[此贴子已经被作者于2013-5-22 20:40:31编辑过]