If e.DataCol.name= "实际入库数量" OrElse e.DataCol.name= "数量" Then if e.datarow.isnull("数量") then
e.DataRow("长短款")= ""
else
If e.DataRow("实际入库数量")<e.DataRow("数量") Then
e.DataRow("长短款")= "短款"
Else If e.DataRow("实际入库数量")>e.DataRow("数量") Then
e.DataRow("长短款")= "长款"
Else
e.DataRow("长短款")= ""
End If
end if
End If
If e.DataCol.name= "入库日期" OrElse e.DataCol.name= "交货日期" Then
If e.DataRow.Isnull("入库日期") = False andalso e.DataRow.Isnull("交货日期")=False Then
If e.DataRow("入库日期")<e.DataRow("交货日期") Then
e.DataRow("及时")= "是"
e.DataRow("是否及时")= True
Else If e.DataRow("入库日期")>e.DataRow("交货日期") Then
e.DataRow("不及时")= "是"
End If
else
e.DataRow("及时")= ""
e.DataRow("是否及时")= False
e.DataRow("不及时")= ""
End If
End If
[此贴子已经被作者于2014-5-4 9:16:13编辑过]
加好友 
发短信
Post By：2014/5/4 9:15:00 [显示全部帖子]
