主题：如何设计不同用户的到期提醒？

 参考代码

Dim cname As String
Select Case user.Group
    Case "客服部"
        cname = "结束日期"
    Case "PMC"
        cname = "物料备齐日期"
End Select
If cname > "" Then
    Dim dt As Date = Date.Today.AddDays(3)
   
    Dim dr As DataRow = DataTables("任务").Find(cname & " >= #" & Date.Today & "# and " & cname & " <= #" & dt & "#")
   
    If dr IsNot Nothing Then
        MessageBox.Show("注意:有3天内即将到期的付款!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If