- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 错误提示,麻烦老师给看看 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23251)
-- 发布时间：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编辑过]
-- 发布时间：2012/9/6 20:02:00
--
说明存放地列中少于两个字符。
-- 发布时间：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
-- 发布时间：2012/9/6 20:26:00
--
哎呀,少了基本的判断,好笨!
谢谢,曹版!问题解决!