以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  功能代码修改！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48763)
--  作者：身份不明
--  发布时间：2014/4/4 14:29:00
--  功能代码修改！

数量、实际入库数量、长短款。共3列。

实际入库数量<数量   长短款列=短款

实际入库数量>数量   长短款列=长款

实际入库数量=数量   长短款列不显示内容

If e.DataCol.name= "实际入库数量" OrElse e.DataCol.name= "数量" Then
   If e.DataRow("实际入库数量")<e.DataRow("数量") Then
              e.DataRow("长短款")= "短款"                        
   Else
              e.DataRow("长短款")= "长款"
   End If
End If

 

代码如上：但是问题是如果实际入库数量=数量时，长短款列也等于长款。请帮忙修改下代码。
--  作者：Bin
--  发布时间：2014/4/4 14:35:00
--  
If e.DataCol.name= "实际入库数量" OrElse e.DataCol.name= "数量" Then
   If e.DataRow("实际入库数量")<e.DataRow("数量") Then
              e.DataRow("长短款")= "短款"                         
   Else if e.DataRow("实际入库数量")>e.DataRow("数量") Then
              e.DataRow("长短款")= "长款"
   End If
End If