Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select 卖方ID,{部门表}.部门名称 As [卖方名称],买方ID,{a}.部门名称 As [买方名称],录入日期,要素市场,{交易单}.会计期间ID,交易单状态,交易项目,项目名称,单价,数量,{交易单明细}.单位,金额,费用类型 From ((({交易单} Inner JOIN {交易单明细} ON {交易单明细}.[交易单编号] = {交易单}.[交易单编号]) Inner JOIN {部门表} ON {部门表}.[部门ID] = {交易单}.[卖方ID]) Inner JOIN {部门表} As a ON a.[部门ID] = {交易单}.[买方ID]) Inner JOIN {价格表} ON {价格表}.[价格ID] = {交易单明细}.[交易项目]"
dt = cmd.ExecuteReader() '记得将参数设置为True
Dim g As New CrossTableBuilder("统计表1", dt)
g.HGroups.AddDef("卖方名称")
g.HGroups.AddDef("买方名称")
g.VGroups.AddDef("项目名称")
g.Build()
MainTable = Tables("统计表1")
加好友 
发短信
Post By：2014/9/27 20:32:00 [只看该作者]
