帮助里有一个到期提醒的设计
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
不知道这几句话应该怎么改,这样对不对
求指教或简化
加好友 
发短信
Post By：2013/5/22 8:57:00 [只看该作者]
