狐友们,我做了一个弹窗提示,但不知为何没有符合条件也弹出窗口,我是想当有符合条件的时候才弹出窗口,没有符合条件就不弹出窗口
主窗口afterload代码:
Dim dt As Date = Date.Today.AddDays(1)
Dim dr As DataRow = DataTables("授权委托").Find("授权到期日期 <= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("有工单未处理哦,千万别忘记了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
forms("委托弹窗").show
End If
弹窗afterload代码:
Dim dt As Date = Date.Today.AddDays(1)
Tables("委托弹窗_Table1").Filter = "[授权到期日期] <= #" & dt & "# And [作废] = False And [处理] = false"
[此贴子已经被作者于2015/11/17 14:25:24编辑过]