If e.DataCol.Name = "预产期" And e.Datarow.IsNull("预产期") = False Then Dim d1 As Date = CurrentTable.Current("预产期") Dim d2 As Date = Date.Today Dim ts As TimeSpan = d2 - d1 e.datarow("宝宝月龄") = Math.Round((ts.Days /30),1) End If
-- 作者:菜鸟foxtable
-- 发布时间:2009/1/20 10:09:00
--
Dim d1 As Date = CurrentTable.Current("预产期") 这行有问题啊.d1的值全是当前表当前行的值了...
[此贴子已经被作者于2009-1-20 10:09:09编辑过]
-- 作者:shihao821004
-- 发布时间:2009/1/20 11:15:00
--
以下是引用菜鸟foxtable在2009-1-20 10:09:00的发言:
Dim d1 As Date = CurrentTable.Current("预产期") 这行有问题啊.d1的值全是当前表当前行的值了...