Foxtable(狐表)用户栏目专家坐堂 → [求助]新手求助跨表计算问题


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

主题:[求助]新手求助跨表计算问题

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


加好友 发短信
等级:婴狐 帖子:11 积分:148 威望:0 精华:0 注册:2012/3/18 17:54:00
[求助]新手求助跨表计算问题  发帖心情 Post By:2012/3/20 23:00:00 [只看该作者]

想得到文件中统计表数据,请高手帮忙
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/3/20 23:08:00 [只看该作者]

没能看懂

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


加好友 发短信
等级:婴狐 帖子:11 积分:148 威望:0 精华:0 注册:2012/3/18 17:54:00
  发帖心情 Post By:2012/3/20 23:10:00 [只看该作者]

我说的不清楚,还是什么地方,统计表内容为空,现在是例子

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


加好友 发短信
等级:婴狐 帖子:11 积分:148 威望:0 精华:0 注册:2012/3/18 17:54:00
  发帖心情 Post By:2012/3/20 23:10:00 [只看该作者]

统计表中备注有点说明

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


加好友 发短信
等级:婴狐 帖子:11 积分:148 威望:0 精华:0 注册:2012/3/18 17:54:00
  发帖心情 Post By:2012/3/20 23:12:00 [只看该作者]

统计表中数据=流水中剥皮的行重量 X  属性中对应剥皮重量期间的单价=金额

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/3/20 23:15:00 [只看该作者]

看不懂什么规则,无解···


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


加好友 发短信
等级:婴狐 帖子:11 积分:148 威望:0 精华:0 注册:2012/3/18 17:54:00
  发帖心情 Post By:2012/3/20 23:22:00 [只看该作者]

见图

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


加好友 发短信
等级:婴狐 帖子:11 积分:148 威望:0 精华:0 注册:2012/3/18 17:54:00
  发帖心情 Post By:2012/3/20 23:22:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/3/20 23:27:00 [只看该作者]

这样吗?

 

统计表DataColChanged事件


If e.DataCol.Name = "重量"
    Dim dr As DataRow = e.DataRow
    If dr.IsNull("重量") Then
        dr("单价") = Nothing
        dr("金额") = Nothing
    Else
        Dim dr1 As DataRow = DataTables("属性").Find("类别 = '" & dr("类别") & "' And 结束值 > " & dr("重量"))
        If dr1 IsNot Nothing Then '如果找到的话
            dr("单价") = dr1("单价")
            dr("金额") = dr("单价") * dr("单价")
        End If
    End If
End If


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/3/20 23:29:00 [只看该作者]

设置好代码后,将焦点切换到统计表,重量列,然后从菜单的工常工作中选择重置列可以得到结果。


 回到顶部
总数 15 1 2 下一页