Dim dt As Date = Date.Today.AddDays(7)
Dim dr As DataRow = DataTables("采购明细").Find("账期= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("注意:有7天内即将到期的付款!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("采购明细").Filter = "账期 = #" & dt & "#"
MainTable = Tables("采购明细")
End If
Dim dh As DataRow = DataTables("采购明细").Find("到货日期= #" & dt & "#")
If dh IsNot Nothing Then
MessageBox.Show("注意:有货即将在7天内到货!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("采购明细").Filter = "到货日期 = #" & dt & "#"
MainTable = Tables("采购明细")
End If
目的：打开项目，系统查找7天内的付款和到货，怎样让它依次显示？实际执行过程是付款一下就闪过去了
加好友 
发短信
Post By：2014/7/16 13:46:00 [只看该作者]
