Dim tb As Table = e.form.Controls("table1").Table
Dim bd1 As New sqlCrossTableBuilder("挂账与未收回统计表","vwBookBill" )
bd1.ConnectionName = gs_strActiveConn
Dim dt1 As fxDataSource
bd1.HGroups.AddDef("部门","部门")
bd1.HGroups.AddDef("agent_user_name","姓名") '根据名称分组
bd1.HGroups.AddDef("customer_name","企业客户") '根据名称分组
bd1.vGroups.AddDef("belong_year","年份") '添加产品列用于垂直分组
bd1.VGroups.AddDef("belong_month","月份") '添加产品列用于垂直分组
bd1.vGroups.AddDef("coll_item","账单内容") '根据名称分组
bd1.vGroups.AddDef("coll_state","账单状态") '对金额进行统计
bd1.vGroups.AddDef("coll_time","收款时间") '对金额进行统计
bd1.vGroups.AddDef("coll_type","收款方式") '对金额进行统计
bd1.Totals.AddDef("coll_amount","账单金额") '对金额进行统计
bd1.HorizontalTotal = True
bd1.filter = filter_agent
bd1.VerticalTotal = True
dt1 = bd1.BuildDataSource()