以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从字符串“”到类型“Date”的转换无效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120430)

--  作者:huizhong
--  发布时间:2018/6/15 10:53:00
--  从字符串“”到类型“Date”的转换无效

老师,我的代码如下:但是执行后系统显示错误,错误信息为:“从字符串“”到类型“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


--  作者:有点甜
--  发布时间:2018/6/15 10:54:00
--  

改成

 

If e.Form.Controls("StartDate").value = nothing Or e.Form.Controls("EedDate").value = nothing Then


--  作者:huizhong
--  发布时间:2018/6/15 11:13:00
--  
谢谢老师