- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口目录树合计问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2175)
-- 发布时间：2009/3/22 22:22:00
-- 窗口目录树合计问题
要求在窗口目录树中点击产品（如PD02），能对所点击的产品(PDo2)记录进行显示并合计；
再点击子节点即产品中的客户（如PD02中的CS01客户）就能对PD02中的CS01客户记录显示并合计；
再点击雇员即产品PD02中CS01客户EP01雇员就能显示产品PD02中CS01客户EP01雇员记录显示并合计；
其他以此类推
自己做了好久，做不出，请高手帮忙。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树合计.table |
[此贴子已经被作者于2009-3-22 22:22:59编辑过]
-- 发布时间：2009/3/23 8:47:00
--
Dim dst1 As WinForm.DataList = e.Form.Controls("DataList1")
dst1.ColumnList=("产品|客户|雇员|数量|金额")\'表A窗口列排序
dst1.DataTable = DataTables("订单")
Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
dst1.Filter = "[产品] = \'" & Value(0) & "\'"
Case 1
dst1.Filter = "[产品] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) & "\'"
End Select
dst1.Build()
dst1.GrandTotal(AggregateEnum.Sum,"合计","数量","金额")
-- 发布时间：2009/3/23 10:48:00
--
谢谢C版主