主题：[原创]★应用实例参选作品★:→医嘱录入单机版

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
不会每天自动刷新.....
搞不明白应该放哪里..


此主题相关图片如下：001.jpg

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

点击浏览该文件:医嘱录入.rar

版主你把贴子移过去吧.