Foxtable(狐表)用户栏目专家坐堂 → [求助]副本Table之行位置联动


  共有2622人关注过本帖树形打印复制链接

主题:[求助]副本Table之行位置联动

帅哥哟,离线,有人找我吗?
湛江智
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]副本Table之行位置联动  发帖心情 Post By:2019/4/25 22:19:00 [只看该作者]

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

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



[此贴子已经被作者于2019/4/26 8:45:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点蓝)在窗口afterload事件做下定位If Tabl...  发帖心情 Post By:2019/4/26 10:08:00 [只看该作者]

 如果打开窗口,只显示  wz  一行,增加一句什么代码可以实现?

也就是只加载当前行 1行
[此贴子已经被作者于2019/4/26 10:52:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/4/26 11:00:00 [只看该作者]

dim t as table = e.Form.Controls("Table1").Table
t.Position = wz
t.filter = “_Identify=” & t.current("_Identify")

 回到顶部