窗口目录树合计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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,"合计","数量","金额")

主题：窗口目录树合计问题