Foxtable(狐表) → 用户栏目 → 专家坐堂 → 高效流水账 现金日记录入账 页面实现后 怎么实现收入和支出 自动计算余额呢？


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

主题：高效流水账 现金日记录入账 页面实现后 怎么实现收入和支出 自动计算余额呢？
帅哥哟，离线，有人找我吗？
李孝春
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）function setCodes(){  &n...  发帖心情 Post By：2019/10/7 11:21:00 [只看该作者]

后台页面计算htm
这样写貌似不对  提示错误
Dim dr As DataRow
Dim drs As List(of DataRow)
dr = DataTable("现金日记账").Find("[_SortKey] < " & dr("_SortKey"), "[_SortKey] Desc") '找出上一行
If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
    dr("余额") = dr("收入") - dr("支出")
    dr = dr
End If
drs = 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
有点蓝老师是否可以指导一下呢  谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107789 积分：548296 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/7 13:21:00 [只看该作者]

Dim dr As DataRow
Dim drs As List(of DataRow)
dr = DataTable("现金日记账").Find("[某某列，比如日期,或者编号] < '" & e.Values("日期") & "' and 凭证种类='" & e.Values("凭证种类") & "'", "[_SortKey] Desc") '根据提交的数据找出本行

再接着11楼的用法，找出上一行，和后面的行进行处理
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）Dim dr As DataRowDim drs As List(o...  发帖心情 Post By：2019/10/7 14:05:00 [只看该作者]

修正后还是一样的错误提示 

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
Dim e As RequestEventArgs = args(0)
Dim dr As DataRow
Dim drs As List(of DataRow)
dr = DataTable("现金日记账").Find("[日期] < '" & e.Values("日期") & "'", "[_SortKey] Desc") '找出上一行
If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
    dr("余额") = dr("收入") - dr("支出")
    dr = dr
End If
drs = DataTable("现金日记账".Select("[日期] >= '" & e.Values("日期") & "'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
    drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107789 积分：548296 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/7 14:24:00 [只看该作者]

很简单的错误，自己学会判断

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