以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]副本Table之行位置联动  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134044)
--  作者：湛江智
--  发布时间：2019/4/25 22:19:00
--  [求助]副本Table之行位置联动

副本Table之行位置联动
帮助里面的代码，当原表位置当前行位置不是第一行是，打开窗口里的副本表位置在第一行，不是想要的效果

当原表位置不是在第一行时，
打开窗口时副本表行位置要和原表行位置一样，求助
也就是打开窗口时副本表光标不是在第一行



[此贴子已经被作者于2019/4/26 8:45:59编辑过]
--  作者：有点蓝
--  发布时间：2019/4/25 22:52:00
--  
在窗口afterload事件做下定位

If Tables("全周期计划").Current Is Nothing Then Return
Dim wz As Integer = e.Form.Controls("Table1").Table.FindRow(Tables("全周期计划").Current.DataRow)
If wz >=0 Then
    systemready = False
    e.Form.Controls("Table1").Table.Position = wz
    systemready = True
End If
--  作者：湛江智
--  发布时间：2019/4/26 10:08:00
--  回复：（有点蓝）在窗口afterload事件做下定位If Tabl...
 如果打开窗口，只显示  wz  一行，增加一句什么代码可以实现？

也就是只加载当前行 1行
[此贴子已经被作者于2019/4/26 10:52:23编辑过]
--  作者：有点蓝
--  发布时间：2019/4/26 11:00:00
--  
dim t as table = e.Form.Controls("Table1").Table
t.Position = wz
t.filter = “_Identify=” & t.current("_Identify")