- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]已发货客户提醒审核代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71778)
-- 发布时间：2015/7/17 20:14:00
-- [求助]已发货客户提醒审核代码
请各位前辈老师帮忙写个已发货提醒审核代码，具体情形是：表A中有审核逻辑列、发货日期列、客户列，如果已发货超过三天还未审核的客户，系统则在项目打开时自动提示：“某某客户三天前就已发货请审核”。（如下面项目中：系统会在打开项目时自动提示“王大、王四，三天前已发货请审核”）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:提醒审核.table |
-- 发布时间：2015/7/17 20:23:00
--
请问各位前辈老师，这个代码好写码？
-- 发布时间：2015/7/18 10:42:00
--
很简单的：
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
-- 发布时间：2015/7/18 12:15:00
--
谢谢狐狸爸爸!