主题：在窗口的timeticker事件加入追载事件，此时双击窗口表的行，跳转的窗口显示的行信息怎么不是已选中的行信息？（目的为了实现实时刷新窗口中符合条件的数据）

要记录位置，刷新好重新定位，如

Dim id = Tables("合同基本信息表").current("_Identify")
DataTables("合同基本信息表").StopRedraw()
DataTables("合同基本信息表").RemoveFor("承办部门 is not null and 承办人 is null")
DataTables("合同基本信息表").AppendLoad("承办部门 is not null and 承办人 is null")
DataTables("合同基本信息表").ResumeRedraw()
Tables("完善签约审批窗口_Table1").filter="承办部门 is not null And 承办人 Is null"
Dim i = Tables("合同基本信息表").findrow("_Identify = " & id)
If i >= 0 Then
    Tables("合同基本信息表").position = i
End If

改成

DataTables("表2").load
DataTables("表2").RemoveFor("第一列 is not null and 第二列 is null")
DataTables("表2").AppendLoad("第一列 is not null and 第二列 is null")
Tables("窗口1_Table1").filter="第一列 is not null and 第二列 is null"

Dim dt As DataTable = DataTables("表2")
Dim drs = dt.SQLSelect("第一列 is not null")
For Each dr As DataRow In drs
    Dim fdr = dt.find("第一列 = '" & dr("第一列") & "'")
    If fdr Is Nothing OrElse fdr("第二列") <> dr("第二列") Then
        Dim id=Tables("表2").current("_identify")
        DataTables("表2").load
        DataTables("表2").RemoveFor("第一列 is not null and 第二列 is null")
        DataTables("表2").AppendLoad("第一列 is not null and 第二列 is null")
        Tables("窗口1_Table1").filter="第一列 is not null and 第二列 is null"
        Dim i=Tables("窗口1_Table1").findrow("_identify="& id)
        If i>0
            Tables("窗口1_Table1").position=i
        End If
        Exit For
    End If
Next

        Dim id=Tables("表2").current("_identify")

改成

        Dim id=Tables("窗口1_Table1").current("_identify")

是否可以，你执行一下测试，看能否达到效果，不就知道了？