- 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=19883)
-- 发布时间：2012/5/24 0:54:00
-- 自动显示。
如图，当文本框接收到 条形码扫描仪器的内容后，如何将所扫描的内容自动加入到 《第一列》
例如 文本框内 返回的内容是 《123456》 系统自动判断 是否是产品库内已有数据，如果是已有数据，自动添加到 表格的《第一列》； 如果不吻合，则提示“没有产品信息”请添加产品
此主题相关图片如下：捕获.png
-- 发布时间：2012/5/24 7:50:00
--
Dim dr As DataRow
Dim str As String = Forms("窗口11").Controls("TextBox1").Value
dr= DataTables("产品库").Find("产品名称 =\'" & Str & "\'")
If dr IsNot Nothing Then
Dim r As Row = Tables("要输入的表").AddNew
r("第一列") = Str
str = Nothing
Else
MessageBox.Show("产品库无此产品!","提示")
Return
str = Nothing
End If
放在文本框的文本框改变的事件中执行!
[此贴子已经被作者于2012-5-24 7:50:20编辑过]
-- 发布时间：2012/5/24 18:00:00
--
非常感谢这位仁兄