主题：[求助]已发货客户提醒审核代码

请各位前辈老师帮忙写个已发货提醒审核代码，具体情形是：表A中有审核逻辑列、发货日期列、客户列，如果已发货超过三天还未审核的客户，系统则在项目打开时自动提示：“某某客户三天前就已发货请审核”。（如下面项目中：系统会在打开项目时自动提示“王大、王四，三天前已发货请审核”）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:提醒审核.table

请问各位前辈老师，这个代码好写码？

很简单的：

 

Dim dt As Date = Date.Today.AddDays(-3)
Dim nms As String  = DataTables("表A").GetComboListString("客户姓名","审核 = False And 发货日期 <= #" & dt & "#")
If nms > "" Then
    MessageBox.show(nms & "已经发货,请审核")
End If

 

谢谢狐狸爸爸!