Dim jb As New sqlJoinTableBuilder("查询表1","表A")
jb.AddTable("表A","产品名称","表B","产品名称",JoinModeEnum.Left) '添加统计表
jb.AddCols("{表A}.产品名称","订单金额",True)
jb.AddExp("回款金额","Sum({表B}.回款金额)")
jb.AddExp("运费回款","Sum({表B}.运费回款)")
jb.Distinct = True
Dim dt1 As fxDataSource
dt1 = jb.BuildDataSource()
Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table'
Dim t As DataTable = Tables("窗口1_Table1").DataTable
Dim t2 As DataTable = DataTables("表C")
t.StopRedraw
t.DataCols.Add("垫付金额",Gettype(Double))
For Each dr As DataRow In t.DataRows
dr("垫付金额") = t2.Compute("Sum(运费)","产品名称='" & dr("产品名称") & "'")
Next
t.DataCols.Add("未回金额",Gettype(Double),"订单金额 - 回款金额")
t.DataCols.Add("运费未回",Gettype(Double),"垫付金额 - 运费回款")
t.ResumeRedraw
Tables("窗口1_Table1").SetColVisibleWidth("产品名称|102|订单金额|71|回款金额|59|未回金额|59|垫付金额|59|运费回款|59|运费未回|59")
Tables("窗口1_Table1").Filter = "未回金额 > 0 or 运费未回 > 0"
加好友 
发短信
Post By：2016/12/10 10:25:00 [显示全部帖子]
