以下是引用狐狸爸爸在2011-6-27 12:05:00的发言：
DataTables("库存明细表").DataCols("生产日期").RaiseDataColChanged() '对生产日期列触发DataColChanged事件,类似重新输入
Dim dr As DataRow = DataTables("库存明细表").Find("到期日期 <= #" & Date.Today().AddDays(-30) & "# And 到期日期 <> #0001-01-01#")
If dr IsNot Nothing Then
MessageBox.Show("有库存产品到期!")
Tables("库存明细表").Filter = "到期日期 <= #" & Date.Today().AddDays(-30) & "# And 到期日期 <> #0001-01-01#"
End If
运行时会多次跳出“有库存产品到期”，
加好友 
发短信
Post By：2011/6/27 15:31:00 [显示全部帖子]
