自制查找窗的问题-已解決 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做了一个窗体

查找窗

此主题相关图片如下：未命名.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编辑过]

主题：自制查找窗的问题-已解決