Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自制查找窗的问题-已解決


  共有5095人关注过本帖树形打印复制链接

主题：自制查找窗的问题-已解決
帅哥哟，离线，有人找我吗？
realredred
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：488 积分：3358 威望：0 精华：0 注册：2013/4/17 21:14:00 		自制查找窗的问题-已解決  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
realredred
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：488 积分：3358 威望：0 精华：0 注册：2013/4/17 21:14:00 		  发帖心情 Post By：2013/5/19 20:44:00 [显示全部帖子]

改了一下 发现篩选不果
Dim tab0 = Tables("主页")(0,"表名")'
Dim ta1 As String = Tables("主页")(0,"查找款号")'
Tables(tab0).Filter = "模号='*" & ta1 & "*'"

找不到..
 回到顶部
帅哥哟，离线，有人找我吗？
realredred
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：488 积分：3358 威望：0 精华：0 注册：2013/4/17 21:14:00 		  发帖心情 Post By：2013/5/20 21:22:00 [显示全部帖子]

就是按这样做
结果是一行都不显示
 回到顶部
帅哥哟，离线，有人找我吗？
realredred
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：488 积分：3358 威望：0 精华：0 注册：2013/4/17 21:14:00 		  发帖心情 Post By：2013/5/20 23:01:00 [显示全部帖子]

就是了,现在想做到就是能达到这个效果

 回到顶部
帅哥哟，离线，有人找我吗？
realredred
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：488 积分：3358 威望：0 精华：0 注册：2013/4/17 21:14:00 		  发帖心情 Post By：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询