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 &"\'")