Dim dt As Date = Date.Today.AddDays(5)
Dim dr As DataRow = DataTables("采购明细").Find("账期= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("注意:有5天内即将到期的付款!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
你参照下
加好友 
发短信
Post By：2014/10/15 12:02:00 [显示全部帖子]
