以下是引用don在2013-4-28 22:06:00的发言：
Dim jb As new SQLJoinTableBuilder("统计表","入库明细")
Dim dt1 As fxDataSource
jb.AddTable("入库明细","入库编号","入库单","入库编号")
jb.AddExp("客户编号","客户编号")
jb.AddExp("客户名称","商品编号")
jb.AddExp("入库编号","{入库单}.入库编号")
jb.Addexp("存入商品","商品编号")
jb.Addexp("操作日期","存入日期")
jb.Addexp("入库数量","数量")
jb.Addexp("入库单价","单价")
jb.Addexp("入库金额","金额")
dt1 = jb.BuildDataSource()
jb = new SQLJoinTableBuilder("A1","兑换明细")
Dim dt2 As fxDataSource
jb.AddTable("兑换明细","兑换编号","兑换表","兑换编号")
jb.AddCols("客户编号","{兑换明细}.兑换编号")
jb.Addexp("兑换商品","商品编号")
jb.Addexp("操作日期","兑换日期")
jb.Addexp("兑换数量","数量")
jb.Addexp("兑换单价","单价")
jb.Addexp("兑换金额","金额")
dt2 = jb.BuildDataSource()
Dim nms As String() = {"客户编号","操作日期"} '指定连接列
dt1.Combine(nms,dt2,nms)
dt1.Show("统计表") '显示统计结果
Tables("统计表").StopRedraw
For Each r As Row In Tables("统计表").Rows
Dim dr As DataRow = DataTables("客户信息").Find("客户编号 = '" & r("客户编号") & "'")
If dr IsNot Nothing Then
r("客户名称") = dr("客户名称")
End If
Next
Tables("统计表").ResumeRedraw
Tables("统计表").sort="操作日期"
MainTable = Tables("统计表")
一个单子 兑换明细是两笔就出错了
[此贴子已经被作者于2013-4-30 10:31:18编辑过]
加好友 
发短信
Post By：2013/4/28 9:02:00 [显示全部帖子]
此主题相关图片如下：未命名.jpg
