标题：[求助]如何用表达式计算出复查时间？

1楼

pc005637 发表于：2011/6/30 12:17:00

初治病人登记后需要在2月末，5月末，6月末三次复查。

复治病人登记后需要在2月末，5月末，8月末三次复查。

时间一般提前2天。比如1月5日登记的，要在3月3日复查。

能否利用表达式列实现这个要求？谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:复查.table

2楼

程兴刚 发表于：2011/6/30 12:38:00

为何不用数据列通过代码实现？

3楼

hhbb 发表于：2011/6/30 12:38:00

表達式非常麻煩,用代碼簡單多了.

4楼

hhbb 发表于：2011/6/30 12:39:00

如不怕麻煩,參考這個:

http://www.datasoft.com.cn/dispbbs.asp?boardid=2&id=1084&authorid=0&page=0&star=1

5楼

blackzhu 发表于：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

共5 条记录, 每页显示 10 条, 页签: [1]