如题
敬请
程序大牛
关注一下
谢谢


附件中，程序是可运行的
窗体名：Form1 为条形码---模拟输入界面
在
文本框---Text1 输入具体的条形码字符
输入完毕后
按回车键即可
可以用快捷键Ctrl+C进行复制、Ctrl+V进行粘贴输入
但
进行复制、粘贴输入时
速度不够快-------(与工作单位上的程序相比，最少慢半拍)
故
在此求教
恳请解答
谢谢！！！

具体代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Sq As String

If KeyAscii = 13 Then
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
             "\数据库.mdb;Jet OLEDB:Database Password=" & 123

Sq = "SELECT * FROM 条形码数据 "
Rst.Open Sq, Cnn, adOpenKeyset, adLockPessimistic
With Rst
.AddNew
.Fields("条形码") = Text1.Text
.Fields("数量") = Val(Text2.Text)
.Update
End With

Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
Text1 = ""
Text1.SetFocus
Else
Exit Sub
End If
Call 将数据引入ListView1
End Sub

复制、粘贴时的代码？

据网上传说
现在的
条形码扫描枪
等同于
键盘输入

根据上述观点
本菜
模拟了一个
接收
条形码数据的文本框：Text1

只要在Text1中
输入模拟条形码值
然后
选中
用快捷键Ctrl+C复制
再用
快捷键Ctrl+V粘贴
按回车键   (此时，已完成了一条数据的添加)

第二条数据的添加
直接用快捷键Ctrl+V粘贴
按回车键  (此时，已完成了第二条数据的添加)
如此类推
----------
这些功能的程序代码，就是本贴子第一楼的代码，是能运行的

其问题是：按回车键后，等待的时间过长，没有做到快速连续输入
但
工作单位的程序(别人制作的专业程序)，已经完美解决了这个问题

[ 本帖最后由 Artless 于 2011-7-24 01:53 编辑 ]

结帖率：66.67%
希望LZ自己多结贴。
https://bbs.bccn.net/thread-332567-1-1.html

[ 本帖最后由 Artless 于 2011-7-24 01:55 编辑 ]

根据自身的业务逻辑
本菜
这个数据表中的数据
是临时过渡数据
不会超过千行

可以优化的地方：
1、不要每次keyPress （keyascii=13)的时候都新建一个数据库连接，可以只用同一个数据库连接
2、Call 将数据引入ListView1。没必要每次keypress事件都调用。只在新增加了数据之后再调用。且最好是只在listview中增加最近新增的一条数据，而不是重新从数据库中取出所有数据（没看到你的将数据引入ListView1的代码，猜测的）

首先声明：
本菜是一个文化程度不高的农民工
在工作中，遇到一些较好的程序软件
总想
用办公软件
来尝试一下
（因为办公软件比较普及，而且不需要金钱来购买,非正版和正版相比，没有多少差别）

言归正传
参照本菜
现使用的行业软件
在条形码扫描过程中：
使用了两个显示数据的控件（致于是什么控件，本菜无法知晓）
A控件-----用来显示现场扫描的数据（数据不累加，每单条记录=1）
          和
         数据需求报警功能（大于需求量时报警，不需要的东西报警）
         可以进入控件内------删除数据
         最下方显示各种合计（例如类别合计，总数量合计）

B控件----用来显示需求数量和实货数量之间的差异明细（只有查看，不能修改删除）

这么复杂的-----数据计算，能同时能看见
本菜推测，数据是通过数据库运算后
才
传回到客户端的