甜老大,出现这个错误。。。
没有为 类型“Date” 和 字符串“2017-11-08” 定义运算符“-”。
Dim d As Date '变量d用于存储转换结果
If dr("首单日期") <> Nothing Then
If Date.TryParse(dr("首单日期"), d) Then
If dr("首单日期") > forms("调拨补").Controls("DateTimePicker1").value Then
tp = forms("调拨补").Controls("DateTimePicker2").value - dr("首单日期")
Else
tp = forms("调拨补").Controls("DateTimePicker2").value - forms("调拨补").Controls("DateTimePicker1").value
End If
ts = tp.days + 1 '统计天数
dr("日均销量") = dr("合计_销售数量") / ts
End If
End If

此主题相关图片如下:微信截图_20171115114145.png

数据库表也做了处理:
CONVERT(varchar(10),CAST(dbo.FA_STORAGE_FTP.CHANGEDATE AS datetime),120) as 出入库日期,
[此贴子已经被作者于2017/11/15 12:00:24编辑过]