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

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

说明存放地列中少于两个字符。

这样改一下看看

 

Dim s1 As String = dr("存放地")
If s1.Length > 2 Then
    Dim s2 As String = s1.SubString(0,2) & f1
    dr("存放地") = s2
End If

哎呀,少了基本的判断,好笨!

 

谢谢,曹版!问题解决!