[原创]★应用实例参选作品★:→医嘱录入单机版 Post By:2008/12/9 19:33:00 [只看该作者]
fox老爹,看看能不能录用...
里面包含了:自动输入,日期加减,表达式,关联演示等一堆东西....
我想要商业版.....foxtable....
有点小缺点... 就是长嘱表里DataColChanged里的 If e.DataCol.name = "停止_停止时间" Then If e.DataRow.IsNull("停止_停止时间") Then dim h As integer= date.now.hour Dim d1 As Date = Date.today Dim d2 as Date = e.datarow("开始_开始时间") e.datarow("日期差")=(d1-d2).TotalDays + iif(h >11,1,0) End If End If 不会每天自动刷新..... 搞不明白应该放哪里..