1 在条码枪上设置一下:扫描完数据后+回车
2 设置按钮的 tab 顺序 保证文本框的下一顺序是要激活的按钮
3 设置按钮的enter 事件
Tables("表A").Current("第一列")=e.Form.Controls("TextBox1").texte.Form.Controls("TextBox1").text=""e.Form.Controls("TextBox1").Select