Foxtable(狐表)用户栏目专家坐堂 → 求助制表?


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

主题:求助制表?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/4 15:20:00 [显示全部帖子]

 张三可以查的时候,显示的是全部数据还是只显示张三的数据?

 

 如果显示全部数据,但是最后合计是张三,这样就太不合理了。

 

 你可以设置汇总模式 http://www.foxtable.com/help/topics/00144.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/4 15:58:00 [显示全部帖子]

 你这个表,本来就是有问题。

 

 1、要么你的结余数根据记账人去计算;

 

 2、要么你用两列,【总结余】【个人结余】


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/4 16:26:00 [显示全部帖子]

以下是引用狂风暴雨狂波在2014-9-4 16:13:00的发言:
总结余帮助上有代码,个人结余这一列的代码怎么写我还没看到有,怎么写,请专家赐教!

 

和总结余的代码一样,只是在后面的条件上加入了 个人的名字

 

比如 原来的条件是 "xxx = 'abcdefg'"

 

就要改成 "xxx = 'abcdefg' and 记账人 = '" & e.datarow("记账人") & "'"


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/4 17:00:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "收入数","支出数"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & " And 记账人 = '" & e.DataRow("记账人") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            e.DataRow("个人余额") = e.DataRow("收入数") - e.DataRow("支出数")
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & "  And 记账人 = '" & e.DataRow("记账人") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("个人余额") = drs(i-1)("个人余额") + drs(i)("收入数") - drs(i)("支出数")
        Next
End Select

[此贴子已经被作者于2014-9-4 17:00:49编辑过]

 回到顶部