- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多层表头 流水账设置无效？求高人相助！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32110)
-- 发布时间：2013/4/25 21:33:00
-- [求助]多层表头 流水账设置无效？求高人相助！
今天看到有狐表这个软件第一次上手想做个 表格，有点困难呀，以前做过网站 但是和做表完全是两回事。
好了直奔主题：用DataColChanged事件做的，发现多层表头不起作用，请高人指点呀
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
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
此主题相关图片如下：未命名1.jpg
余额不显示呢？
[此贴子已经被作者于2013-4-25 21:33:58编辑过]
-- 发布时间：2013/4/26 8:42:00
--
代码没问题，发个例子上来，看看是哪里出问题了
-- 发布时间：2013/4/26 12:32:00
--
感谢你呀，请问如何导出例子呢？我的不是开发版呀
-- 发布时间：2013/4/26 23:49:00
--
传上来了。
-- 发布时间：2013/4/27 6:26: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
-- 发布时间：2013/4/27 7:57:00
--
还是好人多呀，已经解决了，真心的感激并感谢你！非常非常！