If e.keycode = 13 Then Tables("kmbn_cssj").Filter="第七列='" & e.sender.text & "'" If Tables("kmbn_cssj").rows.count > 0 Then Dim txt4 = e.form.controls("Textbox4") txt4.text = Tables("kmbn_cssj").current("第一列") End If
e.sender.selectallend if