主题：AddExp数据类型问题

With DataTables("结转成本")

    .DataRows.Clear() '清除所有行

End With

Dim StartDate As Date =  "2019-01-01"   '定义开始日期

Dim EndDate As Date = "2019-01-31" '定义结束日期

output.show(EndDate)

Dim TimeRange As String ="convert(nvarchar(10),smartDate,121)>='"& StartDate &"' And convert(nvarchar(10),smartDate,121)<='"& EndDate &"'" '时间范围  " & TimeRange & "

Dim Filter1 As String =" itemID='001'or itemID='002'or itemID='003'or itemID='004'" '原料类型  " & Filter1 & "

Dim Filter2 As String =" itemID<>'001'and itemID<>'002'and itemID<>'003'and itemID<>'004'" '产品类型   " & Filter2 & "

'Dim TimeRange1 As String ="convert(nvarchar(10),smartDate,121)>='2018-07-01' And convert(nvarchar(10),smartDate,121)<='2018-07-31'"

'材料入库

Dim jb1 As New SQLJoinTableBuilder("查询表1","R04_InboundMaterial_Detail")

Jb1.ConnectionName = "龙域"

Jb1.AddTable("R04_InboundMaterial_Detail","smartID","R04_InboundMaterial","smartID")

Jb1.AddExp("摘要","'材料入库'")

Jb1.AddExp("本单日期",""& EndDate &"")

Jb1.AddExp("金额","sum(amount)")

Jb1.Filter = "" & TimeRange & ""

 

jb1.Build()

MainTable = Tables("查询表1")

Tables("查询表1").visible = False

Dim f As New Filler

f.SourceTable = DataTables("查询表1") '指定数据来源

f.SourceCols = "摘要,金额,本单日期" '指定数据来源列

f.DataTable = DataTables("结转成本") '指定数据接收表

f.DataCols = "摘要,金额,本单日期" '指定数据接收列 本单日期数据类型为日期时间

f.Fill() '填充数据

以上代码运行后如下报错

从字符串“1987”到类型“Date”的转换无效。

请问怎么解决？？

改成

 

Jb1.AddExp("本单日期", "'"& EndDate &"'")