此主题相关图片如下：001.jpg
如上图,根据ComboBox1的SelectIndexChanged事件进行表A的行定位,请老师们指导.
我的代码不行啊....搞到我晕晕的
Dim r,s As String
s = e.form.Controls("ComboBox1").value
r = DataTables("表A").Find(" & s & ", 0, 1, False, True, False)
If r > - 1 Then
DataTables("表A").Select(r, .Colsel)
End If
Find
在指定列中查找指定的字符内容，如果找到，返回行的位置，否则返回-1。
语法：
Find(StrFind, RowStart, Col, caseSensitive, fullMatch, Wrap)
示例一
在第一列查找“abc”，不区分大小写，不用完全匹配：
With CurrentTable
Dim
r As Integer
r = .Find("abc", 0, 0, False, False, True)
If r > - 1 Then '如果找到符合条件的行
.Select(r, .Colsel) '则选择该行
End If
End With
[此贴子已经被作者于2008-12-16 22:49:21编辑过]
加好友 
发短信
菜鸟中的老鸟
Post By：2008/12/16 22:27:00 [只看该作者]
