Foxtable(狐表)用户栏目专家坐堂 → 窗口目录树合计问题


  共有21575人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
老有所乐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
窗口目录树合计问题  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By: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,"合计","数量","金额")

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2009/3/23 10:48:00 [只看该作者]

谢谢C版主


 回到顶部