以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  扫完第一个编码后可以重头接着扫描另一个再保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110049)
--  作者：有点蓝
--  发布时间：2017/11/25 10:28:00
--  
编码keydown事件
if e.keycode = 13 then
e.form.controls("Table1").table.position = 0
endif

流水号keydown事件
If e.keycode = 13 Then
    Dim t As Table = e.form.controls("Table1").Table
    If t.Position = t.Rows.Count - 1 Then
        msgbox("已经是最后一行")
        Return
    End If
    e.cancel = True
    e.sender.writevalue
    e.sender.Select
    t.position = t.position+1
End If
--  作者：有点蓝
--  发布时间：2017/11/25 11:03:00
--  
e.form.controls("表格控件的名称，不是按钮的名称").table.position = 0
--  作者：有点蓝
--  发布时间：2017/11/25 11:36:00
--  
编码keydown事件
if e.keycode = 13 then
e.form.controls("Table1").table.addnew
e.form.controls("Table1").table.position = 0
endif
--  作者：有点蓝
--  发布时间：2017/11/25 14:09:00
--  
是不是写错代码了，6楼代码是放到编码keydown事件。
--  作者：有点蓝
--  发布时间：2017/11/25 15:04:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:条码扫描系统(1).zip
--  作者：有点蓝
--  发布时间：2017/11/25 16:03:00
--  
没看懂!如何批量扫描自动新增？扫描只能一个个进行扫描
--  作者：有点蓝
--  发布时间：2017/11/25 17:43:00
--  
DataTables("订单").DeleteFor("毛坯编码 Is null")
--  作者：有点甜
--  发布时间：2017/11/26 12:49:00
--  
以下是引用nuoyan88在2017/11/25 21:44:00的发言：
因为扫描会触发新增按钮，就会有空白行

 

何为之最后？哪里知道你什么时候是最后？

 

填充的时候，把空行去掉，不就行了？ 有什么疑问？DataTables("清洗包装记录").DeleteFor("毛坯编码 Is null")
--  作者：有点甜
--  发布时间：2017/11/26 16:32:00
--  
以下是引用nuoyan88在2017/11/26 12:52:00的发言：
就是我会用鼠标光标点击到流水号控制里，在移到控件里的同时可以删除统计扫描后的空行

 

DataTables("清洗包装报工_清洗包装记录").DeleteFor("毛坯编码 Is null")