Foxtable(狐表)用户栏目专家坐堂 → [求助]在窗口表table中的第一行获取后台某个table表当前行中的某列数值


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

主题:[求助]在窗口表table中的第一行获取后台某个table表当前行中的某列数值

帅哥哟,离线,有人找我吗?
紫色幽魂
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
[求助]在窗口表table中的第一行获取后台某个table表当前行中的某列数值  发帖心情 Post By:2018/6/26 12:07:00 [只看该作者]

这个好像不可以在当前窗口表中的第一行获取到后台某个表中的当前行的数值,请问应该怎么改
If  Forms("工厂无损录入主界面").Opened Then
    Dim ym As WinForm.TabControl = Forms("工厂无损录入主界面").Controls("TabControl1")
    If e.Table.Current IsNot Nothing AndAlso ym.SelectedIndex = 1 Then
        Dim b2 As Table = Tables("工厂无损录入主界面_Table2")
        b2.Rows(0)("返修检测量") = Tables("无损_检测明细").Current("首检_返修长度")
    End If
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/26 12:23:00 [只看该作者]

改成

 

b2.Rows(0)("返修检测量") = Tables("无损_检测明细").Current.DataRow.OriginalValue("首检_返修长度")

 

http://www.foxtable.com/webhelp/scr/2369.htm

 

 


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


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点甜)改成?b2.Rows(0)("返修检测...  发帖心情 Post By:2018/6/26 13:47:00 [只看该作者]

我的意思可能没有表达清楚,窗口表跟随变化的表是一个关联表,我希望在关联表里可以随意选择任何行,在窗口表某列的位置能显示出来对应的这个值,根据不同行的数值不同,窗口表单可以实时获取这个数值
事件写在关联表的PositionChanged事件里
[此贴子已经被作者于2018/6/26 13:48:21编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/26 14:57:00 [只看该作者]

请上传一个具体例子测试。


 回到顶部
帅哥哟,离线,有人找我吗?
紫色幽魂
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点甜)请上传一个具体例子测试。  发帖心情 Post By:2018/6/26 15:24:00 [只看该作者]



窗口中的表应该是1,而不是0.5
[此贴子已经被作者于2018/6/28 9:50:24编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/26 17:01:00 [只看该作者]

If  Forms("工厂无损录入主界面").Opened Then
    Dim ym As WinForm.TabControl = Forms("工厂无损录入主界面").Controls("TabControl1")
    If e.Table.Current IsNot Nothing AndAlso ym.SelectedIndex = 1 Then
        Dim b2 As Table = Tables("工厂无损录入主界面_Table2")
        b2.Rows(0)("返修检测量") = e.Table.Current.DataRow("首检_返修长度")
    End If
End If


 回到顶部