主题：条件统计，字符转换为日期

       各位大侠，帮我看看这段代码，实在不知道杂回事，提示错误

统计年份、月份 都是字符列。

 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