主题：如何设置到期提醒功能

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。

这是我的正式版本，请版主帮忙指正，开发者密码是000

删除了bin文件夹后还是不行，进去后发现又自动新增了bin文件夹

版主，数据库怎么执行sql不会呀

新出现一个问题，我这个表格设置是多用户协同工作，每个用户只能看到自己的数据，但现在发现只要有一条数据需要随访，那么所有的用户都会提示，但实际上其他用户是看不到这条数据的，怎么做到每个用户只提示自己的数据有没有到随访期

 

Dim dr As DataRow = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 90 and 随访_3个月_是否随访=0")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例3个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
dr = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 180 and 随访_6个月_是否随访=0")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例6个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

Dim dr As DataRow = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 90 and 随访_3个月_是否随访=0 and 用户='" & user.name & "'")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例3个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
dr = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 180 and 随访_6个月_是否随访=0 and 用户='" & user.name & "'")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例6个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

非常感谢甜版，37楼实现了不同周期的不同提醒，但38楼还是有问题，加入 and 用户='" & user.name & "'后，软件又是没有任何提醒了

能否帮忙直接在32楼的实例上写入代码并测试