dt4 = bd4.BuildDataSource()
Dim nms As String() = {"生产日期","仓库","产地","货物名称","规格型号"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据dt1.Combine(nms,dt4,nms)