其中 其中Dim sd As TimeSpan 

dim sycbrq as date
bs("抄表日期") ,是datatables中的一个字段日期型;保存时就出现了这样的错误! 发现若 是两个日期型列值相减就没问题,当单独定义一个日期变量时,做这样减操作就出问题.怎么解决 谢谢

怎么看不到图片呢 告诉我传了四个附件了

Dim sd As TimeSpan

Dim sycbrq As Date

      

    zts=0

    For Each jzr As DataRow In dt2.DataRows

               

            

        

        Select Case bz

            Case 0

                    sd=bs("抄表日期")-sycbrq  \'b-a

                zts=zts+ sd.TotalDays

            Case 1

                 sd=jzr("搬出日期")-sycbrq  \'d-a

                zts=zts+ sd.TotalDays

            Case 2

                sd=jzr("搬出日期")-jzr("入住日期") \'d-c

                zts=zts+ sd.TotalDays

            Case 3

        End Select

        

    Next