D
delwang
Unregistered / Unconfirmed
GUEST, unregistred user!
我在设置过滤器时遇到一个问题:
procedure TForm1.RadioButton1Click(Sender: TObject);
var time2,stm:tdatetime;
time1,time3:string;
t1,t2:tdatetime;
begin
ADOtable1.Filtered :=false;
ADOtable1.Filter :='';
stm:=strtodatetime(ADOtable1.fieldbyname('stime').AsString) ;//数据
time3:=formatdatetime('yyyy-mm-dd hh:mm:ss',stm);
time2:=DateTimePicker1.DateTime; //条件
time1:=formatdatetime('yyyy-mm-dd hh:mm:ss',time2);
// t1:=strtodatetime(time3);//条件
// t2:=strtodatetime(time1);//数据
ADOtable1.Filter :='time1<#'+time3+'#';
ADOtable1.Filtered :=true;
// label1.Caption :=time1;
// label2.caption:=time3;
end;
错误提示:
项目在所需的名称或序数中未被发现
这是咋回事?我以前用SQL语句来实现过,现在想用过滤器来做。
procedure TForm1.RadioButton1Click(Sender: TObject);
var time2,stm:tdatetime;
time1,time3:string;
t1,t2:tdatetime;
begin
ADOtable1.Filtered :=false;
ADOtable1.Filter :='';
stm:=strtodatetime(ADOtable1.fieldbyname('stime').AsString) ;//数据
time3:=formatdatetime('yyyy-mm-dd hh:mm:ss',stm);
time2:=DateTimePicker1.DateTime; //条件
time1:=formatdatetime('yyyy-mm-dd hh:mm:ss',time2);
// t1:=strtodatetime(time3);//条件
// t2:=strtodatetime(time1);//数据
ADOtable1.Filter :='time1<#'+time3+'#';
ADOtable1.Filtered :=true;
// label1.Caption :=time1;
// label2.caption:=time3;
end;
错误提示:
项目在所需的名称或序数中未被发现
这是咋回事?我以前用SQL语句来实现过,现在想用过滤器来做。