Foxtable(狐表)用户栏目专家坐堂 → [求助]在表中引用另一个表中的统计结果怎么做?


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

主题:[求助]在表中引用另一个表中的统计结果怎么做?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 15:22:00 [显示全部帖子]

方法一:直接设置关联,然后统计

 

http://www.foxtable.com/help/topics/0091.htm

 

http://www.foxtable.com/help/topics/0100.htm

 

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 15:22:00 [显示全部帖子]

方法二:用跨表统计即可

 

http://www.foxtable.com/help/topics/1472.htm

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 15:47:00 [显示全部帖子]

 

[此贴子已经被作者于2016/6/17 15:47:39编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 15:50:00 [显示全部帖子]

表1 的DataColChanged事件写代码

 

If e.DataCol.Name = "编号" Then
    e.DataRow("投入设备数量") = DataTables("表2").Compute("Count(编号)","编号 = '" & e.NewValue & "'")
End If

 

表2 的DataColChanged事件写代码

 

If e.DataCol.Name = "编号" Then
    DataTables("表1").datacols("编号").RaiseDataColChanged("编号 = '" & e.NewValue & "'")
End If

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 16:11:00 [显示全部帖子]

表1 的DataColChanged事件写代码

 

If e.DataCol.Name = "编号" Then 
    e.DataRow("投入设备数量") = DataTables("表2").GetValues("设备","编号 = '" & e.NewValue & "'").count
End If


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/29 9:34:00 [显示全部帖子]

 写在BeforeClose或者AfterClose里面,都可以啊


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/29 9:35:00 [显示全部帖子]

 是,看13楼

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/29 9:52:00 [显示全部帖子]

Dim dr As DataRow = Tables("拉动排产计划_高频").Rows(Tables("拉动排产计划_高频").Rows.Count - 1).DataRow

DataTables("拉动排产计划_高频").DataCols("编号").RaiseDataColChanged(dr)

 

dr = Tables("拉动排产计划_机加_铣床").Rows(Tables("拉动排产计划_机加_铣床").Rows.Count - 1).DataRow

DataTables("拉动排产计划_机加_铣床").DataCols("编号").RaiseDataColChanged(dr)


 回到顶部