有效期报警是这样的:可以自由让用户设定天数与当前库存中的有效期进行比较,自动过滤
我的代码是这样写的
procedure Tyxq_call.SpeedButton1Click(Sender: TObject);
begin
  with adoquery2 do
      begin
        close;
        sql.Clear ;
        sql.Text:='select * from cgstore';
        open;
      end;
 while not adoquery2.Eof  do
   begin
      with adoquery1 do
          begin
           close;
           sql.Clear ;
           sql.Text:='select * from v_cgstore_check where DATEDIFF(day,'''+adoquery2.fieldByName('yxq').AsString+''',left(convert(char(10),getdate()),10))>='''+edit1.Text+'''';
           memo1.Lines.Text:=sql.Text ;
           open;
          end;
     adoquery2.Next ;
   end;
end;
当我在edit1中输入天数 发现不报警 我的库存表的有三条数据 有效期分别是 2006-10-31 2007-10-31 2000-01-01
我就到查询分析器里测试 发现也不行,三条数据全部显示  select * from v_cgstore_check where DATEDIFF(day,'2007-10-31',left(convert(char(10),getdate()),10))>='15'