以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71117)
--  作者：张子俊
--  发布时间：2015/7/5 17:37:00
--  求代码
假如总重为空时，车数为空。总重大于0时，车数等于1.代码怎么写
--  作者：大红袍
--  发布时间：2015/7/5 17:45:00
--  

datacolchanged事件

 

If e.DataCol.Name = "总重" Then
   
    If e.IsNull("总重") Then
        e.DataRow("车数") = Nothing
    Else
        e.DataRow("车数") = 1
    End If
   
End If
--  作者：张子俊
--  发布时间：2015/7/7 7:36:00
--  
这个代码为何不能用，提示错误码IsNull不是datacolchanged的成员
--  作者：大红袍
--  发布时间：2015/7/7 9:08:00
--  
If e.DataCol.Name = "总重" Then
   
    If e.DataRow.IsNull("总重") Then
        e.DataRow("车数") = Nothing
    Else
        e.DataRow("车数") = 1
    End If
   
End If
--  作者：张子俊
--  发布时间：2015/7/7 14:30:00
--  

一个表中有类型、下发数量、数量三列

类型=退量时，下发数量=-数量

类型=签订时，下发数量=数量

这个代码怎么写，求高手再个帮忙。
--  作者：jialihaha
--  发布时间：2015/7/7 14:36:00
--  
跟之前代码差不多呀，你不会举一反三？
--  作者：jialihaha
--  发布时间：2015/7/7 14:39:00
--  
If e.DataCol.Name = "类型" Then
    
    If e.DataRow("类型") =  "退量" Then
        e.DataRow("下发数量") = -e.DataRow("数量")
    Elseif e.DataRow("类型") =  "签订" Then
        e.DataRow("下发数量") = e.DataRow("数量")
    End If
    
End If