Foxtable(狐表)用户栏目专家坐堂 → 从字符串“”到类型“Date”的转换无效


  共有2432人关注过本帖树形打印复制链接

主题:从字符串“”到类型“Date”的转换无效

帅哥哟,离线,有人找我吗?
huizhong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1227 威望:0 精华:0 注册:2018/2/22 10:06:00
从字符串“”到类型“Date”的转换无效  发帖心情 Post By:2018/6/15 10:53:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/15 10:54:00 [只看该作者]

改成

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
huizhong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1227 威望:0 精华:0 注册:2018/2/22 10:06:00
  发帖心情 Post By:2018/6/15 11:13:00 [只看该作者]

谢谢老师

 回到顶部