以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口的副本表控件，副本表在窗口的aferload中经过晒选，双击副本所在行，跳转后的窗口信息不是双击的行，该如何处理啊？谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113449)
--  作者：guosheng
--  发布时间：2018/1/16 11:27:00
--  窗口的副本表控件，副本表在窗口的aferload中经过晒选，双击副本所在行，跳转后的窗口信息不是双击的行，该如何处理啊？谢谢
窗口的副本表控件的doubleclick事件：
Dim tbl As Table = Tables("开标评标_Table1")
If tbl.Current IsNot Nothing Then
    Tables("工程相关合同定标情况表").position= tbl.position
end if

如果不在窗口的afterload中对副本表进行筛选则，则显示的信息是正确的。
--  作者：有点甜
--  发布时间：2018/1/16 11:32:00
--  

代码改成这样，如

 

Dim tbl As Table = Tables("开标评标_Table1")
If tbl.Current IsNot Nothing Then
    Dim wz As Integer = Tables("工程相关合同定标情况表").FindRow(tbl.current.DataRow)
msgbox(wz)
    If wz >=0 Then
        Tables("工程相关合同定标情况表").position= wz
    End If
End If