以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]提醒的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33637)
--  作者：hwj3551670
--  发布时间：2013/5/22 8:57:00
--  [求助]提醒的问题

帮助里有一个到期提醒的设计

Dim dt As Date = Date.Today.AddDays(10)
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

 

 

我想照着这个做成逻辑列“进度” 未下单提醒的 不知道这样改对不对


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

 

不知道这几句话应该怎么改,这样对不对

求指教或简化
--  作者：Bin
--  发布时间：2013/5/22 9:01:00
--  

Dim dr As DataRow = DataTables("订单明细").Find("进度 = 0")
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("订单明细").Filter = "进度 = 0"
    MainTable = Tables("订单明细")
End If
--  作者：XYT
--  发布时间：2013/5/22 9:01:00
--  
你都写出来测试下不就知道了。
--  作者：hwj3551670
--  发布时间：2013/5/22 9:05:00
--  

我写出来测试一下通过了

想简化一下 

如果在右下角弹出窗口的哪种应该怎么设计

 
--  作者：Bin
--  发布时间：2013/5/22 9:06:00
--  
以下是引用hwj3551670在2013-5-22 9:05:00的发言：

我写出来测试一下通过了

想简化一下 

如果在右下角弹出窗口的哪种应该怎么设计

 

这个论坛中有例子,你找一下.
--  作者：hwj3551670
--  发布时间：2013/5/22 9:16:00
--  

应该搜索什么内容？