我按楼上的试了一下,还是不对啊,原码如下: for i:=1 to DataModule1.CRZQuery.RecordCount do begin CRName:=DataModule1.CRZQuery.FieldByName('CRName').AsString ; DataModule1.HolderPassZQuery.Filter :='HolderNo='+ nHolderNo + ' and CRName='+ CRName; DataModule1.HolderPassZQuery.Filtered :=true; if(DataModule1.HolderPassZQuery.FindFirst)then begin for j:=1 to DataModule1.HolderPassZQuery.FieldCount-1 do HolderPassStringGrid.Cells[j,i]:=DataModule1.HolderPassZQuery.Fields.Fields[j].AsString; DataModule1.HolderPassZQuery.Filtered :=false; end; DataModule1.CRZQuery.Next ; end;
然后给 Filter:= ......;赋值
最后再 Filtered:=true;
Filtered:=False;
Filtered:=True;
Filter:=
Filtered:=True;
for i:=1 to DataModule1.CRZQuery.RecordCount do
begin
CRName:=DataModule1.CRZQuery.FieldByName('CRName').AsString ;
DataModule1.HolderPassZQuery.Filter :='HolderNo='+ nHolderNo + ' and CRName='+ CRName;
DataModule1.HolderPassZQuery.Filtered :=true;
if(DataModule1.HolderPassZQuery.FindFirst)then
begin
for j:=1 to DataModule1.HolderPassZQuery.FieldCount-1 do
HolderPassStringGrid.Cells[j,i]:=DataModule1.HolderPassZQuery.Fields.Fields[j].AsString;
DataModule1.HolderPassZQuery.Filtered :=false;
end;
DataModule1.CRZQuery.Next ;
end;