以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教，不能提示信息，谢了啊  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25874)
--  作者：2028398
--  发布时间：2012/11/19 10:52:00
--  求教，不能提示信息，谢了啊

帮忙看看这个为什么不行呢？我想提示今天已经到期，且保质天数为空的数据。前面的都是实例中的，就加了一句话。。。。。

Dim dt As Date = Date.Today
Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#" )
If dr IsNot Nothing Then
    MessageBox.Show("有货物超期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("库存表").Filter = "到期日期 <= #" & dt & "#" And "保质天数 Is Null" 
    MainTable = Tables("库存表")
End If

[此贴子已经被作者于2012-11-19 11:03:14编辑过]
--  作者：lin_hailun
--  发布时间：2012/11/19 11:03:00
--  
多了几个双引号

Dim dt As Date = Date.Today
Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#" )
If dr IsNot Nothing Then
    MessageBox.Show("有货物超期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("库存表").Filter = "到期日期 <= #" & dt & "# And 保质天数 Is Null" 
    MainTable = Tables("库存表")
End If
--  作者：2028398
--  发布时间：2012/11/19 11:08:00
--  
能用是能用了，还是有问题，明明没有符合提示的数据，一点开就出提示“有货物超期”，然后没有数据。
--  作者：lin_hailun
--  发布时间：2012/11/19 11:14:00
--  
 你提示的条件是到期，但你显示的条件是到期+保质期是null。

 如果要一致，你需要把条件统一起来。
--  作者：2028398
--  发布时间：2012/11/19 11:18:00
--  
太感谢了，终于弄好了，这么点小问题，咨询了好几次，麻烦了