Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分开算流水账


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

主题：分开算流水账
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		分开算流水账  发帖心情 Post By：2016/8/7 12:21: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"), "[_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"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("未还金额") = drs(i-1)("未还金额") + drs(i)("欠款金额") - drs(i)("还款金额")
        Next
End Select  '核算毛利


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160807121346.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

加个条件就行了吧

 

dr = e.DataTable.Find("债权人 = '" & e.DataRow("债权人") & "' and [_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
 回到顶部
帅哥哟，离线，有人找我吗？
njcyt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：212 积分：4197 威望：0 精华：0 注册：2013/10/1 14:00:00 		  发帖心情 Post By：2016/8/7 12:27:00 [只看该作者]

参考http://www.foxtable.com/webhelp/scr/2136.htm

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/7 13:21:00 [只看该作者]

帮助文档，本来就有。

 

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/7 13:31:00 [只看该作者]

为什么加上去了还是没有反映呢

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/7 13:50:00 [只看该作者]

看4楼，设置好代码后，重置列。
[此贴子已经被作者于2016/8/7 13:50:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/7 14:14:00 [只看该作者]

好了 谢谢 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询