主题：错误提示,麻烦老师给看看

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "完工入库"
        Dim f1 As Integer = dr("入库") - dr("出库")       
        If dr.IsNull("存放地") AndAlso dr("本地") > 0 Then
            dr("存放地") = dr("生产地点") & f1
        ElseIf dr.IsNull("存放地") = False AndAlso dr("本地") > 0 Then
            Dim s1 As String = dr("存放地")
            Dim s2 As String = s1.SubString(0,2) & f1
            dr("存放地") = s2
        Else
            dr("存放地") = Nothing
        End If

错误提示:

 

此主题相关图片如下：snap008.jpg