主题：文本框内容与数据比对

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.selectall
end if