- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教关于查询表的设计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100225)
-- 发布时间：2017/5/7 13:09:00
-- 请教关于查询表的设计
我在做一个项目管理系统时遇到汇总中的难题，具体的要求在excel文件中进行了说明，请老师帮忙解决，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目管理.xls |
-- 发布时间：2017/5/7 16:32:00
--
DataColChanged事件
Select Case e.DataCol.name
Case "记账日期", "项目负责人"
Dim fdr As DataRow = e.DataTable.Find("项目负责人 = \'" & e.DataRow("项目负责人") & "\' and 记账日期 < #" & e.DataRow("记账日期") & "#", "记账日期 desc")
Dim filter As String
If fdr Is Nothing
filter = "领款时间 <= #" & e.DataRow("记账日期") & "# and 项目负责人 = \'" & e.DataRow("项目负责人") & "\'"
Else
filter = "领款时间 > #" & fdr("记账日期") & "# and 领款时间 <= #" & e.DataRow("记账日期") & "# and 项目负责人 = \'" & e.DataRow("项目负责人") & "\'"
End If
Dim sum1 = DataTables("项目费用支出表").compute("sum(借方)", filter)
Dim sum2 = DataTables("项目费用支出表").compute("sum(贷方)", filter)
e.DataRow("收入") = sum1
e.DataRow("支出") = sum2
e.DataRow("余额") = sum1-sum2
End Select
-- 发布时间：2017/5/7 18:25:00
--
谢谢！
-- 发布时间：2017/5/7 23:46:00
-- 再请教一个问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.table |
-- 发布时间：2017/5/8 8:46:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目7.table |
-- 发布时间：2017/5/9 0:55:00
-- 谢谢了！
非常感谢！解决了我们工作中的大难题！