看不懂,为什么楼主说取不到值?
'Tables("表A").Select(Vars("hzb"),Vars("lzb"))
'Sendkeys.Send("{ESC}")
'Tables("表A").focus
'Tables("表A").value = e.Form.controls("NumericComboBox1").value
'Tables("表A").current("第二列") = e.Form.controls("NumericComboBox1").value
‘Vars("str") = e.Form.controls("NumericComboBox1").value
msgbox(e.Form.controls("NumericComboBox1").Value)
e.Form.close() '关闭窗口
[此贴子已经被作者于2013-8-15 20:00:08编辑过]