- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎么改，能改模糊匹配 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29624)
-- 发布时间：2013/3/10 12:34:00
-- 怎么改，能改模糊匹配
If e.KeyCode = Keys.Enter Then
Dim spdm As String = e.Sender.Text
Dim dr As DataRow = DataTables("库存明细表").Find("商品代码 = \'" & spdm & "\'")
If dr IsNot Nothing Then
e.Form.Controls("商品类型").Text = dr("商品类型")
Else
产品代码 如： F6 HM930 RBL155、 输入 6 930 155 的数字，就能获得 最匹配 的商品信息
-- 发布时间：2013/3/10 14:06:00
--
试试:
Dim Flt as string ="6,930,155" \'e.Sender.Text
if flt > "" Then
Flt = "商品代码 Like \'%" & Flt.Replace(",","%\'And 商品代码 Like \'%") & "%\'"
Dim dr As DataRow = DataTables("库存明细表").Find(flt)
If dr IsNot Nothing Then
...
End if
End if
-- 发布时间：2013/3/10 15:53:00
--
产品 不一定就是 6 930 155的 代码
有新产品 就会有 新的 商品代码
需要在改改。 或者， 在其他 事件 命令 上
-- 发布时间：2013/3/10 16:16:00
--
以下是引用xyw04在2013-3-10 15:53:00的发言：
产品 不一定就是 6 930 155的 代码
产品 不一定就是 6 930 155的 代码
有新产品 就会有 新的 商品代码
需要在改改。 或者， 在其他 事件 命令 上
"6,930,155"就是E.sender.value好不好?不过是规定了一种格式而已.
-- 发布时间：2013/3/10 16:18:00
--
哦！！ 我下班回家试试！！ 谢谢
-- 发布时间：2013/3/11 12:56:00
--
不行，没有效果！！！
-- 发布时间：2013/3/11 12:56:00
--
我这个 不是 查下哦， 是 编码 填充 信息
-- 发布时间：2013/3/11 13:57:00
--
以下是引用xyw04在2013-3-11 12:56:00的发言：
我这个 不是 查下哦， 是 编码 填充 信息
無文件,無說明,無答案!
-- 发布时间：2013/3/11 14:17:00
--
纸上不谈兵，提问最好配合一个简单的例子
-- 发布时间：2013/3/11 14:18:00
--
嗯， 晚点 我上传！ 上班中