专家坐堂-去掉最后一位字符进行数值筛选Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  去掉最后一位字符进行数值筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123182)

--  作者：weibu
--  发布时间：2018/8/9 15:29:00
--  去掉最后一位字符进行数值筛选

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim dr As DataRow
Dim po As Integer
dr = DataTables("溯源码").SQLFind("子溯源码 =\'" & txt & "\'" )
If dr Is Nothing Then
MessageBox.Show("此子溯源码不存在!")
Else
DataTables("溯源码").LoadFilter = "子溯源码 = \'" & txt & "\'"
DataTables("溯源码").Load()
po = Tables("溯源码").FindRow(dr)\'找出该DataRow在Table中的位置
If po >= 0 Then \'如果找到
Tables("溯源码").Position = po \'选定
End If
End If

我想把上面代码修改为：不比较“子溯源码”最后一位，与txt的值相同；如“子溯源码” 为123456，只需12345=“txt”

--  作者：有点蓝
--  发布时间：2018/8/9 15:58:00
--
DataTables("溯源码").SQLFind("子溯源码 like \'" & txt & "%\'" )

--  作者：weibu
--  发布时间：2018/8/9 16:02:00
--
这样的話输入123，是否也是能找到123456，或1237789？
我需要输入123无效，只能输入12345才能找到123456.也就是说只能去掉子溯源码最后一位才行

--  作者：有点甜
--  发布时间：2018/8/9 16:41:00
--

DataTables("溯源码").SQLFind("子溯源码 like \'" & txt & "%\' and len(子溯源码)=\'" & txt.length+1 & "\'" )