请教下这个表达式应该怎么改
Dim ks As WinForm.DateTimePicker = e.Form.Controls("工厂进度开始日期")
Dim js As WinForm.DateTimePicker = e.Form.Controls("工厂进度结束日期")
Dim ks1 As Date = ks.Value
Dim js1 As Date = js.Value
Dim bd1 As New SQLGroupTableBuilder("进度统计表","无损_检验批")
bd1.C
Dim dt1 As fxDataSource
bd1.Groups.AddDef("检验批编号")
bd1.Groups.AddDef("工程名称")
bd1.Groups.AddDef("检验批")
bd1.Totals.AddDef("重量")
bd1.Filter = "检测日期_最早检测日期 >= #"& ks1 &"# and 检测日期_最后检测日期 <= #"& js1 &"# "
dt1 = bd1.BuildDataSource()
Tables("无损查询表_Table1").DataSource = dt1
加好友 
发短信
Post By：2018/7/25 13:09:00 [只看该作者]
