Dim dt As Date = Date.Today.AddDays(10) Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & Format(dt,"yyyy-MM-dd") & "#") If dr IsNot Nothing Then MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Tables("库存表").Filter = "到期日期 <= #" & Format(dt,"yyyy-MM-dd") & "#" MainTable = Tables("库存表") End If
|