以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FindRow查找6位的数值可找到,查找8位的找不到  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132478)

--  作者:漂亮美眉vszh
--  发布时间:2019/3/22 15:49:00
--  FindRow查找6位的数值可找到,查找8位的找不到


图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:456.png
图片点击可在新窗口打开查看

Dim r As Integer
r = Tables("MSA信号探测法子表").Findrow("基准值=\'0.47690111\'")
MessageBox.Show(r)
If r > 0 Then
    MessageBox.Show("对应基准值在:" & r + 1 & "行")
Else
    MessageBox.Show("未查找到对应行或切换行刷新数据~~~")
    \'  lb11.text = "未查找到对应行或切换行刷新数据~~~"
End If


--  作者:漂亮美眉vszh
--  发布时间:2019/3/22 15:50:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:789.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/3/22 16:25:00
--  

方法一:列改成【高精度小数】

 

方法二:改成比如

 

r = Tables("MSA信号探测法子表").Findrow("基准值>=\'0.47690111\' and 基准值<=\'0.4769011101\'")