能帮帮搜索代码吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能帮帮搜索代码吗？

共有3333人关注过本帖树形打印复制链接主题：能帮帮搜索代码吗？

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

能帮帮搜索代码吗？ 发帖心情

Post By：2014/6/9 13:57:00 [只看该作者]

感谢！感谢

如果只是搜索到第一列的ComboBox5里面的数据，不是把他筛选出来应该怎么改一下啊！

Tables("表A").Filter = "第一列 Like '%" & e.Form.Controls("ComboBox5").Text & "%'"

现在是搜索到并且筛选出来了，有没办法不筛选出来只是只是选择ComboBox5相同的行！感谢感谢

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/9 14:03:00 [只看该作者]

什么叫做选择，选择是什么效果，又怎么用。

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/9 14:07:00 [只看该作者]

就是鼠标移到搜索到的那行，点击一下的效果

不单独筛选，

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/9 14:09:00 [只看该作者]

无法理解你的意思.

yangwenghd

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/9 14:14:00 [只看该作者]

不好意思！

比如用控件"ComboBox5"在第一列搜索123，搜索到了，鼠标点击第一列的123那行！

感谢感谢不好意思专业知识不够！有些不知道该怎么说！

Bin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/9 14:15:00 [只看该作者]

你的意思是不进行筛选,只是移动焦点要对应的行?

参考帮助

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

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

yangwenghd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/9 14:33:00 [只看该作者]

感谢感谢

可以了

yangwenghd

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/13 10:27:00 [只看该作者]

能在帮忙看看吗？感谢感谢

With CurrentTable

Dim C As Integer

C = .FindRow("[No] Like '%" & e.Form.Controls("ComboBox1").Text & "%'") '从第一行开始查找

If C >= 0 Then '如果找到的话

.Position = C '定位到找到的行.

End If

End With

No 是双精度小数就要报警能帮帮忙看看吗？

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/13 10:28:00 [只看该作者]

With CurrentTable

Dim C As Integer

C = .FindRow("[Convert(No], 'System.String') Like '*" & e.Form.Controls("ComboBox1").Text & "*'") '从第一行开始查找

If C >= 0 Then '如果找到的话

.Position = C '定位到找到的行.

End If

End With

yangwenghd

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/13 10:41:00 [只看该作者]

感谢

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：能帮帮搜索代码吗？