主题：[求助]代码出错，到类型"double"的转换无效（已解决）

一段代码，提取上个月月底的累计兑现列的值，代码运行出错，请各位老师指教如何修改代码，谢谢！！

 

代码如下：

'绩效奖_累计已兑_DataColChanged
Select Case e.DataCol.Name
    Case "日期","单位","绩效奖_累计兑现","核算标准"
        Dim dr As DataRow = e.DataRow
        Dim mydate As Date = dr("日期")
        Dim y As Integer = mydate.Year
        Dim m As Integer = mydate.Month
        If m <> 1 Then
            Dim m1 As Integer = m - 1
            Dim Days As Integer = Date.DaysInMonth(y,m1)
            Dim syd As Date = New Date(y,m1,Days) '上月月底日期
            If dr.IsNull("日期") OrElse dr.IsNull("单位") OrElse dr("绩效奖_累计兑现") = 0 Then
                dr("绩效奖_累计已兑") = 0
            Else
                dr("绩效奖_累计已兑") = " '" & dr("绩效奖_累计兑现") & "' And 单位 = '" & dr("单位") & "'And 日期 =# '" & syd & "'#"
            End If
            dr("绩效奖_累计已兑") = 0
    End If
End Select

 

 

此主题相关图片如下：l.png

谢谢hanxuntx老师的回复，但是可能不行，提示出错。

 

此主题相关图片如下：m.png

谢谢狐爸老师的回复，可能是我没有讲清楚，用图说明：目的是将从蓝色标记的单元格取值，填充到红色标记的单元格，应该如何修改代码，请各位老师指教，谢谢！！

附图：

 

 

此主题相关图片如下：n.png

单位=单位，日期=上月月底，累计已兑=累计兑现（也就是上月累计兑现）。如果月份是1月，累计已兑=0。

谢谢狐爸的回复，好像还有一点问题。

 

此主题相关图片如下：o.png

好像还是不行，值为0。

 

此主题相关图片如下：p.png

ok了，刷新后，数值符合要求。

 

此主题相关图片如下：q.png

谢谢狐爸老师，怎么晚，还打扰老师，真不好意思，深表歉意，再次衷心感谢！！

谢谢狐爸老师的建议，实在没有办法，老板逼得。待这个模块完成后，打算静下心来，按照老师的要求，好好复习有关章节。谢谢狐爸老师的关心。

hhbb老师，通过论坛提问解疑，不失为学习提高的一个捷径，不是吗？得到您的关注，十分荣幸！还望得到您的帮助！！