以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码问题,请帮忙修改!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49451)

--  作者:身份不明
--  发布时间:2014/4/18 9:49:00
--  代码问题,请帮忙修改!

如下图:我的数据是通过逻辑列从上一流程转过来的,因为代码设置的是实际入库数量 < 数量 =短款

但现在的问题是:实际入库数量为空,也默认的为短款,而当手动填入实际入库数量后,

如果实际数量等于数量,长短款列应为空的,这时候还需要手动删除短款2字。请老师帮修改下代码!

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 

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



--  作者:Bin
--  发布时间:2014/4/18 9:52: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("长短款")= "长款"
   else
           e.DataRow("长短款")= ""
   End If
End If

--  作者:有点甜
--  发布时间:2014/4/18 9:52:00
--  
If e.DataCol.name= "实际入库数量" OrElse e.DataCol.name= "数量" Then
    If e.NewValue = Nothing OrElse e.NewValue = 0 Then
        e.DataRow("长短款") = Nothing
    Else
        If e.DataRow("实际入库数量")<e.DataRow("数量") Then
            e.DataRow("长短款")= "短款"
        Else If e.DataRow("实际入库数量")>e.DataRow("数量") Then
            e.DataRow("长短款")= "长款"
        End If
    End If
End If