主题：代码提示错误,请指一点一下问题出在哪个,,,急......

Dim jb As New SQLJoinTableBuilder("查询表1","入库单")
jb.AddCols("{入库单}.*")
jb.Addexp("入库总数","0.1-0.1")
jb.build

t2 =Tables("查询表1")
t2.StopRedraw
t2.Cols("入库总数").Move(n)
For Each r As Row In t2.Rows
    r("入库总数") = t1.Rows(i)("入库总数")
    i+=1
  r("入库总数") = DataTables("入库单明细").Compute("sum(数量)","入库单号='" & r("入库单号") & "'")
Next
t2.ResumeRedraw

t3=Tables("销售订单")
Dim sk As New SQLJoinTableBuilder("查询表2","t2")
sk.AddTable("t2","订单号","t3","订单号")
sk.AddCols("t3.*")
sk.build

Dim jb As New SQLJoinTableBuilder("查询表1","销售订单")
jb.AddCols("{销售订单}.*")
jb.Addexp("订单总数","0.1-0.1")
jb.build

t2 =Tables("查询表1")
t2.StopRedraw
t2.Cols("订单总数").Move(n)
For Each r As Row In t2.Rows
    r("订单总数") = t1.Rows(i)("订单总数")
    i+=1
  r("订单总数") = DataTables("销售订单明细").Compute("sum(数量)","订单号='" & r("订单号") & "'")
Next
t2.MainTable = t2ResumeRedraw

2、计算入库单总数，从入库单明细提取

 代码    Dim s1,s2 As Table
Dim i,f As Integer
s1 =Tables("入库单")
f =s1.Cols("入库总数").Index

s2 =Tables("查询表2")
s2.StopRedraw
s2.Cols("入库总数").Move(f)
For Each r As Row In s2.Rows
    r("入库总数") = t1.Rows(i)("入库总数")
    i+=1
  r("入库总数") = DataTables("入库单明细").Compute("sum(数量)","入库单号='" & r("入库单号") & "'")
Next
s2.ResumeRedraw
MainTable = s2

3、t2 (销售订单） 和  s2（入库单）进行交叉统计

CrossTableBuilder

这样能在一个命令窗口中写代码吗，，，怎么写，，，，我对这个不太明白，，，谢谢