- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何用表达式计算出复查时间？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10931)
-- 发布时间：2011/6/30 12:17:00
-- [求助]如何用表达式计算出复查时间？
初治病人登记后需要在2月末，5月末，6月末 三次复查。
复治病人登记后需要在2月末，5月末，8月末 三次复查。
时间一般提前2天。 比如1月5日登记的，要在3月3日复查。
能否利用表达式列实现这个要求？谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复查.table |
-- 发布时间：2011/6/30 12:38:00
--
为何不用数据列通过代码实现？
-- 发布时间：2011/6/30 12:38:00
--
表達式非常麻煩,用代碼簡單多了.
-- 发布时间：2011/6/30 12:39:00
--
如不怕麻煩,參考這個:
http://www.datasoft.com.cn/dispbbs.asp?boardid=2&id=1084&authorid=0&page=0&star=1
-- 发布时间：2011/6/30 12:40:00
--
基本就是这样:
Dim dr As DataRow = DataTables("表名").Find("复查时间 = #" & Date.Today.AddDays(2) & "#") \'查找离复查时间还有2天
If dr IsNot Nothing Then \'如果找到
Dim wz As Integer = Tables("表名").FindRow(dr)
If wz >= 0 Then
Tables("表名").Position = wz \'定位到此行
MessageBox.show("病人为谁谁谁,通知来复查!" ) \'提示
End If
End If