Dim str As String = e.Form.Controls("TextFind").text With Tables("成语词典")
Dim r As Integer
r = .Find(str, 0, 0, False, False, True)
If r > - 1 Then '如果找到符合条件的行
.Position = r '则选择该行
End If
End With
代码如上, Tables("成语词典") 数据大概 6W +
运行第一次的时候,没有问题,立马定位到要查找的数据行,
再次运行的时候,不能立马跳到定位行
例如,第一次定位到100行, 第二次定位到200行的时候
不是跳转过去,而是跟我们用 ↓ 箭头按着不放一样
如果跨度超多1W (就是跨度很大,没有具体数字),程序停止响应
不知道为何
[此贴子已经被作者于2017/1/13 12:59:08编辑过]