帮忙看看这个为什么不行呢?我想提示今天已经到期,且保质天数为空的数据。前面的都是实例中的,就加了一句话。。。。。
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编辑过]