[浏览完整版]
标题：[原创]★应用实例参选作品★:→医嘱录入单机版
1楼
菜鸟foxtable 发表于：2008/12/9 19:33:00fox老爹,看看能不能录用...
里面包含了:自动输入,日期加减,表达式,关联演示等一堆东西....
我想要商业版.....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
里面包含了:自动输入,日期加减,表达式,关联演示等一堆东西....
我想要商业版.....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 |
[此贴子已经被作者于2008-12-9 19:41:05编辑过]
2楼
gdlgh 发表于：2008/12/9 19:37:00哈!支持!!我也系这样讲!!我要商业版!!!!!!
3楼
czy 发表于：2008/12/9 19:52:00第一个参选作品，先顶下。
4楼
blackzhu 发表于：2008/12/10 13:22:00 我昨日已经发了一个算不算的？
5楼
czy 发表于：2008/12/10 13:34:00参选作品发到项目发布区吧，这样便于区别和管理，贴子标题请注明“参选作品”。
6楼
菜鸟foxtable 发表于：2008/12/10 14:41:00以下是引用czy在2008-12-10 13:34:00的发言：
参选作品发到项目发布区吧，这样便于区别和管理，贴子标题请注明“参选作品”。
参选作品发到项目发布区吧，这样便于区别和管理，贴子标题请注明“参选作品”。
版主你把贴子移过去吧.
7楼
燕子南飞 发表于：2008/12/29 11:02:00同行，您的文件打不开啊，是不是需要修改一下。
8楼
燕子南飞 发表于：2008/12/29 11:04:00这是错误提示：
此主题相关图片如下：未命名.jpg
此主题相关图片如下：未命名.jpg9楼
燕子南飞 发表于：2008/12/29 11:07:00下一个错误提示：
此主题相关图片如下：未命名1.jpg
然后自动关闭狐表。
此主题相关图片如下：未命名1.jpg然后自动关闭狐表。
10楼
老山木羽 发表于：2009/2/25 15:22:00和楼上同样的问题，请楼主修改下，能开源就好好了，朋友。