Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动输入偶尔出错


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

主题：自动输入偶尔出错
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		自动输入偶尔出错  发帖心情 Post By：2017/8/1 13:16:00 [显示全部帖子]

新增订单时，增加订单明细用的是扫描枪
有添加了一个Dropbox
ValueChanged的代码是

If Tx.Text.Length = 13 Then
    Dim r1 As Row = Tables("销售订单.销售明细").AddNew()
    r1("商品条码")= Tx.Text
    Tx.Text= Nothing
    Forms("Pos销售").Controls("DropBox1").Select
End If

有时候扫描枪扫一下可以自动添加一条对应的明细

有时候扫描时只在窗口的Table中增加一条，却不会增加到表销售明细

是哪里出问题了吗？
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 13:59:00 [显示全部帖子]

今天本来想截个出错的图
我活生生测试了500次
竟然都正常，平常20次都会出错个1-2次
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 14:44:00 [显示全部帖子]

嗯    现在我怀疑不是我写的这些有问题了

我在猜想是不是扫描枪扫描偶尔会出错的缘故

我如果没用扫描枪，直接在库存商品里直接调用是不会出错的

唯独扫描枪时才会出错
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 15:44:00 [显示全部帖子]

应该把代码写在textChanged事件吗？因为有的条形码是12位数的，所以我把代码放在ValueChanged事件，不然13位数的条形码会不生效
完整代码：
Dim Tx As WinForm.DropDownBox = e.Sender
If Tx.Text.Length = 6 Then
    Dim r1 As Row = Tables("销售订单.销售明细").AddNew()
    r1("商品编号")= Tx.Text
    Tx.Text= Nothing
    Dim dr As Row = Tables("销售订单").Current
    Dim n1 As Double = Tables("销售订单.销售明细").DataTable.Compute("Sum(总额)","销售单号='" & dr("销售单号") & "'")
    e.Form.Controls("销售单号").Text = "销售单号 : " & dr("销售单号")
    e.Form.Controls("销售日期").Text = "销售日期 : " & dr("销售日期")
    e.Form.Controls("销售员").Text = "销售员 : " & dr("销售员")
    e.Form.Controls("客户编号").Text = "客户编号 : " & dr("客户编号")
    e.Form.Controls("客户姓名").Text = "客户姓名 : " & dr("客户姓名")
    e.Form.Controls("客户电话").Text = "客户电话 : " & dr("客户电话")
    e.Form.Controls("合计").Text = "合计 : " & n1 & "元"
    Dim i As Integer =  Tables("销售订单.销售明细").DataTable.Compute("Count(销售单号)","销售单号='" & dr("销售单号") & "'")
    Forms("Pos销售").Controls("DropBox1").Select
End If
If Tx.Text.Length = 12 Then
    Dim r1 As Row = Tables("销售订单.销售明细").AddNew()
    r1("商品条码")= Tx.Text
    Tx.Text= Nothing
    Dim dr As Row = Tables("销售订单").Current
    Dim n1 As Double = Tables("销售订单.销售明细").DataTable.Compute("Sum(总额)","销售单号='" & dr("销售单号") & "'")
    e.Form.Controls("销售单号").Text = "销售单号 : " & dr("销售单号")
    e.Form.Controls("销售日期").Text = "销售日期 : " & dr("销售日期")
    e.Form.Controls("销售员").Text = "销售员 : " & dr("销售员")
    e.Form.Controls("客户编号").Text = "客户编号 : " & dr("客户编号")
    e.Form.Controls("客户姓名").Text = "客户姓名 : " & dr("客户姓名")
    e.Form.Controls("客户电话").Text = "客户电话 : " & dr("客户电话")
    e.Form.Controls("合计").Text = "合计 : " & n1 & "元"
    Dim i As Integer =  Tables("销售订单.销售明细").DataTable.Compute("Count(销售单号)","销售单号='" & dr("销售单号") & "'")
    Forms("Pos销售").Controls("DropBox1").Select
End If

If Tx.Text.Length = 13 Then
    Dim r1 As Row = Tables("销售订单.销售明细").AddNew()
    r1("商品条码")= Tx.Text
    Tx.Text= Nothing
    Dim dr As Row = Tables("销售订单").Current
    Dim n1 As Double = Tables("销售订单.销售明细").DataTable.Compute("Sum(总额)","销售单号='" & dr("销售单号") & "'")
    e.Form.Controls("销售单号").Text = "销售单号 : " & dr("销售单号")
    e.Form.Controls("销售日期").Text = "销售日期 : " & dr("销售日期")
    e.Form.Controls("销售员").Text = "销售员 : " & dr("销售员")
    e.Form.Controls("客户编号").Text = "客户编号 : " & dr("客户编号")
    e.Form.Controls("客户姓名").Text = "客户姓名 : " & dr("客户姓名")
    e.Form.Controls("客户电话").Text = "客户电话 : " & dr("客户电话")
    e.Form.Controls("合计").Text = "合计 : " & n1 & "元"
    Dim i As Integer =  Tables("销售订单.销售明细").DataTable.Compute("Count(销售单号)","销售单号='" & dr("销售单号") & "'")
    Forms("Pos销售").Controls("DropBox1").Select
End If
Forms("Pos销售").Controls("DropBox1").Select


老师有什么需要修改的吗？
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 15:47:00 [显示全部帖子]

还有写了一个代码，但提示应为标识符
Dim dr As String = e.Form.Controls("Color").Value ’Color控件是ComboBox
Dim clr As Color
clr = Color."dr"
'MessageBox.Show("A:" & clr)
MessageBox.Show("A:" & clr.A)
MessageBox.Show("B:" & clr.B)
MessageBox.Show("G:" & clr.G)
MessageBox.Show("R:" & clr.R)

dr是字符串，应该怎么修改呢？
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 16:07:00 [显示全部帖子]

好的    谢谢老师

还有写了一个代码，但提示应为标识符
Dim dr As String = e.Form.Controls("Color").Value ’Color控件是ComboBox
Dim clr As Color
clr = Color."dr"
'MessageBox.Show("A:" & clr)
MessageBox.Show("A:" & clr.A)
MessageBox.Show("B:" & clr.B)
MessageBox.Show("G:" & clr.G)
MessageBox.Show("R:" & clr.R)

dr是字符串，应该怎么修改呢？
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 16:54:00 [显示全部帖子]

Dim clr As Color = e.Form.Controls("Color").Value
MessageBox.Show("A:" & clr.A)
代码出错   无法转换

但颜色选择控件可以替代了   谢谢老师
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 17:13:00 [显示全部帖子]

老师  If e.keycode = 13 Then  ’回车符的编码是13
余下代码不生效
改为If e.keycode = Keys.Enter Then ’按下的是回车键吗？
测试是可以，那直接用If e.keycode = Keys.Enter Then就可以了吗？

然后代码怎么模拟按了回车键
Forms("Pos销售").Controls("DropBox1").Value = r("商品编号")
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 17:51:00 [显示全部帖子]

只能输入数字   没办法起到回车的作用

e.From.Controls("DropBox1").Value = 280001 & chr(13)

只有280001，但触发不了KeyDown的事件
 回到顶部
帅哥哟，离线，有人找我吗？
aizaishuzui
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：2089 威望：0 精华：0 注册：2014/3/25 14:24:00 		  发帖心情 Post By：2017/8/1 18:14:00 [显示全部帖子]

好的  谢谢老师 

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询