老师,我的代码如下:但是执行后系统显示错误,错误信息为:“从字符串“”到类型“Date”的转换无效”,您给看看是什么情况?
If e.Form.Controls("StartDate").value = "" Or e.Form.Controls("EedDate").value = "" Then
MessageBox.Show("请先选择查询损益的起止时间 !")
e.Cancel = True
Else
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("项目基础表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("所属公司") '根据公司分组
bd1.Totals.AddDef("结项合同标的额","结项金额") '对结算金额进行统计
bd1.Totals.AddDef("结项单毛利","结项毛利") '对结项利润进行统计
bd1.Filter = " 结项日期 >= #" & e.Form.Controls("StartDate").Value & "# And 结项日期 <= #" & e.Form.Controls("EedDate").Value & "# "
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("财务收支台账"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("所属公司") '根据所属公司分组
bd2.Totals.AddDef("借款金额","费用借款") '对收款金额进行统计
bd2.Totals.AddDef("报销金额","费用报销") '对差旅费报销进行统计
bd2.Filter = " 财务处理日期 >= #" & e.Form.Controls("StartDate").Value & "# And 财务处理日期 <= #" & e.Form.Controls("EedDate").Value & "# And [费用类别] is not null"
dt2 = bd2.BuildDataSource()
dt1.Combine("所属公司",dt2,"所属公司") '合并统计数据
Tables("损益查询窗口_Table1").DataSource = dt1 '将统计结果绑定到Table
End If