[求助]多层表头流水账设置无效？求高人相助！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

今天看到有狐表这个软件第一次上手想做个表格，有点困难呀，以前做过网站但是和做表完全是两回事。

好了直奔主题：用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

此主题相关图片如下：未命名1.jpg

余额不显示呢？

[此贴子已经被作者于2013-4-25 21:33:58编辑过]

代码没问题，发个例子上来，看看是哪里出问题了

感谢你呀，请问如何导出例子呢？我的不是开发版呀

传上来了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

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)("支出_当日支出")

End Select

还是好人多呀，已经解决了，真心的感激并感谢你！非常非常！

muhua	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/4/26 16:33:00 [只看该作者] 用户已被锁定

主题：[求助]多层表头 流水账设置无效？求高人相助！

主题：[求助]多层表头流水账设置无效？求高人相助！