Dim Customer As WinForm.ComboBox = e.Form.Controls("客户代码")
Dim StartDate As WinForm.DateTimePicker = e.Form.Controls("开始日期")
Dim EndDate As WinForm.DateTimePicker = e.Form.Controls("结束日期")
Dim bd1 As New SQLGroupTableBuilder("统计表1","工序完工明细")
bd1.C
Dim dt1 As fxDataSource
bd1.Groups.AddDef("产品代码")
bd1.Totals.AddExp("制壳重量","case when 工序 = '制壳' then 数量 * 组件数*单件重量 else 0 end") '对制壳重量进行统计
bd1.Totals.AddExp("浇注重量","case when 工序 = '浇注' then 数量 * 组件数*单件重量 else 0 end") '对浇注重量进行统计
If StartDate.Value <> "" And EndDate.Value <> "" Then
If Customer.Value = "" Then
bd1.Filter = "日期 >= '" & StartDate.Value & "' And 日期 <= '" & EndDate.Value & "'"
Else
bd1.Filter = "SubString(产品代码,1,3) = '" & Customer.Value & "' And 日期 >= '" & StartDate.Value & "' And 日期 <= '" & EndDate.Value & "'"
End If
Else
If Customer.Value = "" Then
bd1.Filter = ""
Else
bd1.Filter = "SubString(产品代码,1,3) = '" & Customer.Value & "'"
End If
End If
dt1 = bd1.BuildDataSource()
运行时，出错提示“ 字符串“”到类型date的转换无效 ”。曾经尝试把datetimepicker控件改进textbox, 可以执行，但输入不方便，请问以上代码该做何调整。谢谢
加好友 
发短信
Post By：2016/10/5 14:57:00 [只看该作者]
