
加好友 发短信
等级:贵宾
帖子:35433
积分:178530
威望:0
精华:3
注册:2013/3/30 16:36:00
|
Post By:2014/2/21 17:44:00 [显示全部帖子]
If dr IsNot Nothing Then If dr("已经入库")=False AndAlso dr("实际入库数量") <= 0 Then MessageBox.Show("有产品即将到交货期,还没有及时入库!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Tables("订单").Filter = "交货日期 <= #" & dt & "#" MainTable = Tables("订单") end if End If
|
|