各位大侠,帮我看看这段代码,实在不知道杂回事,提示错误
统计年份、月份 都是字符列。
Dim dt1,dt2 As DataTable
dt1 = DataTables("发货明细表")
dt2 = DataTables("收货入库明细表")
Dim sum1,sum2 As Double
Dim d As Date
If e.DataCol.Name = "统计_年份" OrElse e.DataCol.Name = "统计_月份" Then
If dr.IsNull("统计_年份") = False AndAlso dr.IsNull("统计_月份") = False Then
d = CDate(dr("统计_年份") & "-" & dr("统计_月份") & "-01")
sum1 = dt1.Compute("Sum(数量)", "[物料编码] = '" & dr("物料编码") & "' and [日期] < #" & d & "# ")
sum2 = dt2.Compute("Sum(实收数量)", "[物料编码] = '" & dr("物料编码") & "' And [日期] < #" & d & "# ")
dr("统计_总数量初期") = dr("期初数_总数量") + sum1 - sum2
dr("统计_总数量出库") = dt1.Compute("Sum(数量)", "[物料编码] = '" & dr("物料编码") & "'And [日期] >= #" & d & "# And [日期] < #" & d.AddMonths(1) & "# ")
dr("统计_总数量入库") = dt2.Compute("Sum(实收数量)", "[物料编码] = '" & dr("物料编码") & "' and [日期] >= #" & d & "# And [日期] < #" & d.AddMonths(1) & "# ")
End If
End If
详细错误信息:
调用的目标发生了异常。
该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。