代码如下：Dim Val As Date
If InputValue(Val, "提示","请输入日期:") Then
Dim xsb As String = pp1 & "销售记录表"
Dim spb As String = pp1 & "商品表"
Dim sql As String '销售记录表
sql = "Select {" & xsb & "}.条码,数量,标准价,(数量*标准价) As 标准金额,成交金额,店铺,业务员,日期,单号 fr om{" & xsb & "} LEFT JOIN {" & spb & "} ON {" & xsb & "}.条码 = {" & spb & "}.条码 where 店铺 = '" & user.name & "' and 日期 = '" & Val & "'" '"
Dim DB As New GroupTableBuilder("统计表1",sql,CONN ) '销售统计
Dim dt As fxDataSource
db.Groups.AddDef("业务员")
db.Totals.AddDef("数量")
db.Totals.AddDef("成交金额")
db.Totals.AddDef("标准金额")
db.Totals.AddDef("单号",AggregateEnum.Count,"单数")
db.VerticalTotal = True
'bd1.Filter = " 年代 = '" & nd & "' and 季节 = '" & jj & "'"
dt = DB.BuildDataSource()
Dim T As Table = e.Fo rm.Controls("Table1").Table
T.DataSource = dt '将窗口表绑定到统计表
'--------以下希望增加单效列和附加列-------------------
单效=成交金额/单数
附加=数量/单数
End If
求解
加好友 
发短信
Post By：2017/3/27 16:19:00 [显示全部帖子]
