在AfterLoad中写有以下命令:
Tables("GPON口与分纤盒对应关系表").Filter = "机房名称= '" & Tables("GPON口与分纤盒对应关系表").Current("机房名称") & "' And 设备名称= '" & Tables("GPON口与分纤盒对应关系表").Current("设备名称") & "' "
Dim dr As DataRow
Dim po As Integer
dr = DataTables("GPON口与分纤盒对应关系表").Find("_Identify = '" & Tables("GPON口与分纤盒对应关系表").Current("_Identify") & "'")
po = Tables("GPON口与分纤盒对应关系表").FindRow(dr)
If po >= 0 Then '如果找到
Tables("GPON口与分纤盒对应关系表").Position = po '选定
End If
如下图目前光标在第3行
此主题相关图片如下:360截图20150916102546412.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2015-9/201591610245664949.jpg)
执行以上命令后光标还是在第3行、如果我想实现光标跟随筛选前的第3行所在的内容将光标跟随改变到第1行;命令该怎么修改?
此主题相关图片如下:360截图20150916102608394.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2015-9/20159161025433005.jpg)
[此贴子已经被作者于2015/9/16 11:14:45编辑过]