1、自带的,是从当前行往下查,不包括当前行。
你可以自己做一个类似的查询窗口
Dim str As String = e.Form.Controls("TextFind").text
With Tables("表A")
Dim r As Integer
r = .FindRow("第一列 like '%" & str & "%'", .Position+1, True)
If r > - 1 Then '如果找到符合条件的行
.Position = r '则选择该行
End If
End With
2、代码请写到datacolchanging事件,而不是datacolchanged事件