table中查找Find不能查高精度类型的数据吗?2.隐藏菜单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → table中查找Find不能查高精度类型的数据吗?2.隐藏菜单

共有2043人关注过本帖树形打印复制链接主题：table中查找Find不能查高精度类型的数据吗?2.隐藏菜单

漂亮美眉vszh

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

等级：四尾狐帖子：892 积分：8036 威望：0 精华：0 注册：2013/5/30 11:27:00

table中查找Find不能查高精度类型的数据吗?2.隐藏菜单 发帖心情

Post By：2018/10/19 9:53:00 [只看该作者]

老师，1.我有一列是高精度小数，用Find无法定位，是不是只能定位字符型？这列在基准值列肯定存在的，眼睛都能找到

With Tables("MSA信号探测法子表")

Dim r As Integer

r = .Find(“0.5599180000”, 0, "基准值", False, False, True) //高精度列，显示值为0.559918，弹出值为后面加了几个0

MessageBox.Show(r)

If r > - 1 Then '如果找到符合条件的行

.Position = r '则选择该行

End If

End With

2.有个菜单代码执行需要很长时间，但执行中，菜单下拉打来后，就漂浮在界面上，如果代码不执行完毕，他一直停留在主界面上，遮住数据，如何隐藏？
图片点击可在新窗口打开查看

此主题相关图片如下：菜单置于下方.png

有点蓝

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

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/10/19 10:08:00 [只看该作者]

1、

r = .Find(“0.559918”, 0, "基准值", False, False, True)

或者

r = .Findrow(“基准值=0.559918”)

2、

Select Case e.StripItem.Name

Case "正式"

Dim sit As WinForm.StripItem = e.Form.Strips("工具栏1").Items("基本")

sit.basecontrol.HideDropDown '隐藏子菜单

‘原来的其他事件代码

End Select

主题：table中查找Find不能查高精度类型的数据吗?2.隐藏菜单