以下是引用bigpeng在2018/3/31 20:12:00的发言:
新出现一个问题,我这个表格设置是多用户协同工作,每个用户只能看到自己的数据,但现在发现只要有一条数据需要随访,那么所有的用户都会提示,但实际上其他用户是看不到这条数据的,怎么做到每个用户只提示自己的数据有没有到随访期
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