主题：[求助]谁帮我加个判断窗口的语句

Dim dt As Boolean = False
Dim dr As DataRow = DataTables("订单明细").Find("进度 = " & dt & "")
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("订单明细").Filter = "进度 = " & dt & ""
    MainTable = Tables("订单明细")
End If

 

这句话  帮我加一个判断，如果提示产品到期的窗口打开了，哪不在需要重新加开它了

If Forms("窗口1").Opened Then
    Messagebox.Show("窗口1已经打开！")
End If

对不起，忘记写一样东西了，这句话是放在计划管理里面的，

此主题相关图片如下：tm截图未命名.jpg

还是一样一直会弹出

 MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

这句话弹出的窗体是什么窗体名

模式窗口，这个是系统带的，你要关闭这个就点确定或叉

在计划管理里面放进这句话  时间到了打开了一个以后，没有把这个关闭掉，哪下次时间到了会在打开一个。

我想如果打开了一个以后，下次时间到了 ，上次打开的窗口没有关闭掉的话，就不用在打开重复的窗口了？

不然一直没管他的话 时间设置的短一点不是有N多这样的窗口打开了？

这样可以实现吗

 

那你就不用系统的，你自己设计个提示窗口就可以了。这样就可以用代码控制打开和关闭

哪自己设计一个 怎样才能隔一段时间检查一遍没有下单

你都知道用计划管理了，在里面写不就可以了吗？

 

用静态变量：

 

Static b As Boolean
If b = False Then
    Dim dt As Boolean = False
    Dim dr As DataRow = DataTables("订单明细").Find("进度 = " & dt & "")
    If dr IsNot Nothing Then
        b = True
        MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        b = False
        Tables("订单明细").Filter = "进度 = " & dt & ""
        MainTable = Tables("订单明细")
    End If
End If

参考：

http://www.foxtable.com/help/topics/1061.htm