主题：[求助]日期计算

计算代码：
 if e.datarow.isnull("日期") Then
   e.datarow("值")=Nothing
 else
   Dim d1 As Date = Date.today
   Dim d2 as Date = e.datarow("日期")
   e.datarow("值")=(d1-d2).TotalDays
 End If

datacolchenged:
If e.Datacol.Name = "日期" Then
   e.DataTable.DataCols("值").Recalc(e.datarow)
end if

项目的AfterOpenproject事件：

Datatables("表A").Datacols("值").Recalc()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目24.rar