主题：[求助]怎样暂停

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("采购明细")