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