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编辑过]