以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请教如何用代码生成周龄值？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4850)

--  作者：czy --  发布时间：2009/11/2 13:42:00 --   \'DataColChanged事件代码: Dim dr As DataRow = e.DataRow if e.DataCol.Name = "日龄" Then     if dr.IsNull("日龄") Then         dr("周龄") = Nothing     Else         if dr("日龄") mod 7 = 0 Then             dr("周龄") = dr("日龄") \\ 7         Else             dr("周龄") = (dr("日龄") \\ 7)+1         End If     End If End If