文本框代码如下：If e.keycode = 13 Then
If e.form.controls("TextBox1").text <> "" Then '手工输入箱号内容回车,查询末结账
Tables("kmbn105").Filter=("箱号='" & e.Form.Controls("TextBox1").Text & "' AND 是否结账 = 0 ")
If Tables("kmbn105").rows.count > 0 Then
Else
MessageBox.Show("箱号未开,请与前台联联系!","结账提示!")
e.Form.Controls("TextBox1").Select() '文本框获取焦点
e.Form.Controls("TextBox1").Text = Nothing '清除文本框内容
Return
End If
End If
e.Form.Controls("TextBox1").Select() '文本框获取焦点
e.Form.Controls("TextBox1").Text = Nothing '清除文本框内容
End If
主表是kmbn100， kmbn105表是用“外部数据源”增加的表，在数据库中并没有kmbn105表,数据库中只有kmbn100表
如果kmbn100表内数据更新了，kmbn105也会更新，就不会报上图的错，如果kmbn100表没有更新，这时查询会报错
加好友 
发短信
Post By：2017/9/16 13:34:00 [只看该作者]
此主题相关图片如下：1.png
