- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样暂停 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53831)
-- 发布时间：2014/7/16 13:46:00
-- [求助]怎样暂停
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天内的付款和到货，怎样让它依次显示？实际执行过程是付款一下就闪过去了
-- 发布时间：2014/7/16 13:49:00
--
MessageBoxButtons的参数好像可以处理这个问题吧
-- 发布时间：2014/7/16 14:01:00
--
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)
End If
Dim dh As DataRow = DataTables("采购明细").Find("到货日期= #" & dt & "#")
If dh IsNot Nothing Then
MessageBox.Show("注意:有货即将在7天内到货!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Tables("采购明细").Filter = "账期 = #" & dt & "# or 到货日期 = #" & dt & "#"
MainTable = Tables("采购明细")
-- 发布时间：2014/7/16 17:44:00
--
感谢！有点甜！
