- 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=58639)
-- 发布时间：2014/10/21 12:48:00
-- 扫入条码时自动引用
条码采集表中扫入条码后自动引用对照表中的型号和系列，去应该怎么做
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/10/21 13:06:00
--
补充一下，条码后面五位对应的是型号，我应该怎么去写程序呢？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/10/21 13:08:00
--
我也想问这个问题
-- 发布时间：2014/10/21 13:32:00
--
现学现卖：
If e.DataCol.Name = "条码" Then
Dim dr As DataRow = DataTables("对照表").Find("型号= \'" & e.newValue.SubString(4,6) & "\'")
If dr Is Nothing Then
MessageBox.Show("无此条码.")
Else
e.DataRow("型号")=dr("型号代码")
e.DataRow("系列")=dr("系列")
End If
End If
-- 发布时间：2014/10/21 14:29:00
--
是写在哪个事件里面？
-- 发布时间：2014/10/21 14:33:00
--
datacolchanged
-- 发布时间：2014/10/21 14:53:00
-- 帮我看看
看看代码哪里有问题了，怎么没有效果
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:销售中心成品库管理.table |
-- 发布时间：2014/10/21 14:58:00
--
If e.DataCol.Name = "条码" Then
If e.NewValue = Nothing Then
e.DataRow("型号")=Nothing
e.DataRow("系列名称")=Nothing
Else
Dim dr As DataRow = DataTables("对照表").Find("型号= \'" & right(e.newValue,5) & "\'")
If dr Is Nothing Then
MessageBox.Show("无此条码.")
Else
e.DataRow("型号")=dr("型号")
e.DataRow("系列名称")=dr("系列名称")
End If
End If
End If
-- 发布时间：2014/10/21 15:04:00
--
怎么还是不行呢？
-- 发布时间：2014/10/21 15:19:00
--
我测试可以。取条码后5位跟对照表的型号比较。