[求助] 光标留在当前行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

当我点击序号为8的那一行后、如果我进行了筛选操作；那么光标会继续留在序号为8的那一行。

但是如果我希望筛选操作后、光标能够留在筛选前的 _Identify 相同的那一行；

在AfterLoad中、我的命令该怎么写？

[此贴子已经被作者于2015/9/16 9:08:25编辑过]

在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

执行以上命令后光标还是在第3行、如果我想实现光标跟随筛选前的第3行所在的内容将光标跟随改变到第1行；命令该怎么修改？

此主题相关图片如下：360截图20150916102608394.jpg

[此贴子已经被作者于2015/9/16 11:14:45编辑过]

测试了、光标还是留着筛选前的那个序号行、而没有跟随移动到与筛选前相同【分纤盒编号】的行。

（前面的写错了，筛选应该是筛选本表中符合条件的行；同时筛选后光标能够跟随筛选前【分纤盒编号】相同的行上）

‘筛选符合条件的行

’将光标移动到与筛选前【分纤盒编号】相同的那一行

Dim idx As String = Tables("GPON口与分纤盒对应关系表").Current("分纤盒编号")

Dim n As Integer = Tables("GPON口与分纤盒对应关系表").FindRow("分纤盒编号 = '" & idx & "'")

If n >= 0 Then

Tables("GPON口与分纤盒对应关系表").Position = n

End If

[此贴子已经被作者于2015/9/16 11:18:09编辑过]

还是不行，会出现先将光标移动到【分纤盒编号】相同的行后、马上又移动回筛选前的那个序号行。

如果查询到【网格人员清单表】中有和【装机工单表】中当前行的装维人员姓名相同;那么将【网格人员清单表】的光标移动该行。我的命令该怎么写？

Dim r As Row = Tables("装机工单表").current
Dim dr1 As DataRow = DataTables("网格人员清单表").Find("装维人员姓名 = '" & r("装维人员姓名") & "' ")
If dr1 IsNot Nothing Then

？？？？？

Else
End If

主题：[求助] 光标留在当前行