窗口代码如下：

Syscmd.Project.Save()
Dim Filter As String
Dim yt As String=e.Form.controls("ComboBox1").value   ‘新增代码
Dim d1 As Date=e.Form.controls("DateTimePicker1").value
Dim d2 As Date=e.Form.controls("DateTimePicker2").value
Dim gs As String=e.Form.controls("DropBox1").value
If d2<>Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "录入日期=#"& d2  &"#"
End If

If d1<>Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "清单日期=#"& d1  &"#"
End If
If gs<>"" Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "配送公司 like \'%" & gs & "%\'"
End If
If yt="导出" Then  ’新增代码
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "中联批量导出=false"
End If
Dim bd1 As New SQLGroupTableBuilder("删除来货单号临时表1","计划来货登记表")
Dim dt1 As fxDataSource
bd1.FromServer = True
bd1.filter=filter
bd1.Groups.AddDef("来货单号")
bd1.Groups.AddDef("清单日期", DateGroupEnum.None)
bd1.Groups.AddDef("录入日期", DateGroupEnum.None)
bd1.Groups.AddDef("配送公司")
bd1.Totals.AddExp("采购金额_正常","来货数量*采购价")
dt1 = bd1.BuildDataSource()
Dim bd2 As New SQLGroupTableBuilder("删除来货单号临时表2","科室急需提前送货表")
Dim dt2 As fxDataSource
bd2.FromServer = True
bd2 .filter=filter
bd2 .Groups.AddDef("来货单号")
bd2 .Groups.AddDef("清单日期", DateGroupEnum.None)
bd2 .Groups.AddDef("录入日期", DateGroupEnum.None)
bd2 .Groups.AddDef("配送公司")
bd2.Totals.AddExp("采购金额_急送","数量*采购价")
dt2 = bd2.BuildDataSource()
Dim nms As String() ={"来货单号","清单日期","录入日期","配送公司"}
dt1.Combine(nms,dt2,nms)
e.Form.controls("Table1").Table.DataSource = dt1
With e.Form.controls("Table1").Table.DataTable.DataCols 
    .Add("总金额",Gettype(Double), "IsNull([采购金额_正常],0) + ISNULL([采购金额_急送],0)")
End With
e.Form.controls("Table1").Table.AutoSizeCols()

点击这个按钮出现：统计错误，错误原因：至少一个参数没有被指定值。上面红色字体的代码是新增上去的，在没有新增的时候能用，新增后按钮代码就用不了。

有个没有   我搞错表了