主题：控件的焦点控制问题

If e.KeyCode = Keys.Enter Then

    If e.Sender.Text <> "" Then

        Dim str As String = e.Sender.Text

        str = "'%" & str & "%'"

        DataTables(e.Form.Name & "_Table1").LoadFilter = "档案ID like " & str 

        DataTables(e.Form.Name & "_Table1").Load(False)

        e.Sender.Select()

        e.Sender.SelectedText

        e.cancel=true

    End If

End If