想法是这样的：

窗口中一张表，记录条目较多，要是用下拉条下拉就比较麻烦，况且字也比较小，不容易看到，因此，设想在窗体中增加一个定位功能，让他在表中找到该条记录，同时表的可视界面滚动到该条记录，并同时给该条记录着色。

不知道能不能实现

With CurrentTable
    Dim r As Integer
    r = .FindRow("[客户名称] Like \'% " & e.Form.Controls("TextBox1").Text & " %\'")
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
        DataTables("客户一览表").SysStyles("CurrentRow").BackColor= Color.red
    End If
End With

错在哪里？输入后没有反应啊

Dim r As Integer
r = Tables("客户一览表").FindRow("[客户名称] Like \'% " & e.Form.Controls("TextBox1").Text & " %\'")
If r >= 0 Then \'如果找到的话
    Tables("客户一览表").Position = r \'定位到找到的行.
    DataTables("客户一览表").SysStyles("CurrentRow").BackColor= Color.red
End If

还是不行

又重新改了一下

Dim r As Integer
r = Tables("客户一览表").FindRow("[客户名称] Like \'%" & Forms("客户一览窗口").Controls("TextBox1").Text & "%\'")
If r >= 0 Then \'如果找到的话
    Tables("客户一览表").Position = r \'定位到找到的行.
    Tables("客户一览表").Styles("CurrentRow").BackColor= Color.red
End If

可以定位了，但是无法着色

估计跟table和datatable有关