以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期自动更新计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19522)
--  作者：jiwawa0420
--  发布时间：2012/5/12 22:13:00
--  日期自动更新计算

有以下几列： A-发货日期 B-付款日期 C-付款方式

我想达到这个效果：当C=CIA时， B=A-7；当C=net30 B=A+30;

高手请支招，谢谢@！我是菜鸟
--  作者：古奇
--  发布时间：2012/5/12 23:42:00
--  
AddDays（）
--  作者：jiwawa0420
--  发布时间：2012/5/12 23:55:00
--  
能不能详细点啊，具体怎么操作？
--  作者：古奇
--  发布时间：2012/5/13 2:18:00
--  

表事件  DataColChanged

         

            If e.DataRow("C") = "CIA" 
                e.DataRow("B")=e.DataRow("A").AddDays(-7)
            ElseIf e.DataRow("C") = "net30" 
                e.DataRow("B")=e.DataRow("A").AddDays(30)
            End If
       

--  作者：狐狸爸爸
--  发布时间：2012/5/13 8:41:00
--  
比较完整的：
 
if e.DAtaCol.Name = "C" Then
     If e.DataRow("C") = "CIA"
              e.DataRow("B")=e.DataRow("A").AddDays(-7)
     ElseIf e.DataRow("C") = "net30"
              e.DataRow("B")=e.DataRow("A").AddDays(30)
     End If
End If