Foxtable(狐表) → 用户栏目 → 专家坐堂 → 去掉最后一位字符进行数值筛选


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

主题：去掉最后一位字符进行数值筛选
帅哥哟，离线，有人找我吗？
weibu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		去掉最后一位字符进行数值筛选  发帖心情 Post By：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”
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110629 积分：563047 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/9 15:58:00 [只看该作者]

DataTables("溯源码").SQLFind("子溯源码 like '" & txt & "%'" )

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


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2018/8/9 16:02:00 [只看该作者]

这样的話输入123，是否也是能找到123456，或1237789？
我需要输入123无效，只能输入12345才能找到123456.也就是说 只能去掉子溯源码最后一位才行
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/9 16:41:00 [只看该作者]

 

DataTables("溯源码").SQLFind("子溯源码 like '" & txt & "%' and len(子溯源码)='" & txt.length+1 & "'" )
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询