以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  错误提示,麻烦老师给看看  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23251)
--  作者：wjl-se
--  发布时间：2012/9/6 19:56:00
--  错误提示,麻烦老师给看看

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
按此在新窗口浏览图片
[此贴子已经被作者于2012-9-6 20:01:56编辑过]
--  作者：czy
--  发布时间：2012/9/6 20:02:00
--  
说明存放地列中少于两个字符。
--  作者：czy
--  发布时间：2012/9/6 20:04:00
--  

这样改一下看看

 

Dim s1 As String = dr("存放地")
If s1.Length > 2 Then
    Dim s2 As String = s1.SubString(0,2) & f1
    dr("存放地") = s2
End If
--  作者：wjl-se
--  发布时间：2012/9/6 20:26:00
--  

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

 

谢谢,曹版!问题解决!