窗口代码如下:
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()
点击这个按钮出现:统计错误,错误原因:至少一个参数没有被指定值。上面红色字体的代码是新增上去的,在没有新增的时候能用,新增后按钮代码就用不了。