多了几个双引号
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
|