主题：老问题，求解脱。万分感谢

用select语句：

 

select 发货日期 as 日期, 客户单位,产品名称,销售数量,产品单价,销售数量 * 产品单价 as 销售金额,0 as 付款金额,0 as 欠款金额 From {发货表} Union All Select 付款日期 As 日期,客户单位,"" AS 产品名称,0 as 销售数量,0 as 产品单价,0 as 销售金额,付款金额,0 as 欠款金额 From {付款表}

呵呵，早说啊，也可以不用SQL语句：

 

DataTables("表3").StopRedraw()

For Each dr1 As DataRow in DataTables("表1").DataRows

      Dim dr2 As DataRow = DataTables("表3").AddNew

      dr2("a") = dr1("a")
      dr2("b") = dr1("b")

      dr2("1") = dr1("1")

      dr2("2") = dr1("2")
      dr2("3") = dr1("3")

      dr2("4") = 0

      dr2("5") = 0
      dr2("6") = 0

Next

For Each dr1 As DataRow in DataTables("表2").DataRows

      Dim dr2 As DataRow = DataTables("表3").AddNew

      dr2("a") = dr1("a")
      dr2("b") = dr1("b")

      dr2("1") = 0

      dr2("2") = 0
      dr2("3") = 0

      dr2("4") = dr1("4")

      dr2("5") = dr1("5")
      dr2("6") = dr1("6")

Next
DataTables("表3").ResumeRedraw()