查询请教.

Question

请教 这行应怎么写
while   (Not   adoQuery1.Eof) and (not form10.adoquery1.eof) and trim(e):=trim(f)这里出错
var
a,b,c,d:real;
e,f:string;
begin
a:=strtofloat(adoQuery1.FieldByName('月').AsString);
b:=a+1;
c:=strtofloat(form2.combobox2.Text);
d:=c+1;
form2.combobox2.Text:=floattostr(d);
e:=adoQuery1.FieldByName('姓名').AsString;
f:=form10.adoQuery1.FieldByName('姓名').AsString;
adoQuery1.First;
form10.adoquery1.first;
  while   (Not   adoQuery1.Eof) and (not form10.adoquery1.eof) and trim(e):=trim(f)
do
BEGINadoTable1.Insert;
adoTable1.FieldByName('部门').AsString:=adoQuery1.FieldByName('部门').AsString;
adoTable1.FieldByName('编号').AsString:=adoQuery1.FieldByName('编号').AsString;
adoTable1.FieldByName('姓名').AsString:=adoQuery1.FieldByName('姓名').AsString;
adoTable1.FieldByName('基本工资').AsString:=adoQuery1.FieldByName('基本工资').AsString;
adoTable1.FieldByName('岗位工资').AsString:=adoQuery1.FieldByName('岗位工资').AsString;
adoTable1.FieldByName('质量工资').AsString:=adoQuery1.FieldByName('质量工资').AsString;
adoTable1.FieldByName('主管加给').AsString:=adoQuery1.FieldByName('主管加给').AsString;
adoTable1.FieldByName('白班天数').AsString:=form10.adoQuery1.FieldByName('白班天数').AsString;......
.......
adoTable1.FieldByName('合计').AsString:='0';
adoTable1.FieldByName('年').AsString:=adoQuery1.FieldByName('年').AsString;
adoTable1.FieldByName('月').AsString:=floattostr(b);
adoTable1.Post;
adoQuery1.next;
form10.ADOQuery1.next;
end;

Answer 1

while (Not adoQuery1.Eof) and (not form10.adoquery1.eof) and trim(e)=trim(f) do
begin
  ....
end;

Answer 2

  加一组括号
  
  while (Not adoQuery1.Eof) and (not form10.adoquery1.eof) and (trim(e)=trim(f)) do  

Answer 3

while (Not adoQuery1.Eof) and (not form10.adoquery1.eof) and (trim(e) = trim(f))

Answer 4

同意诸位楼上：错误很明显，在条件判断中，是无法使用赋值语句的，楼主写的确是 trim(e):=trim(f)，有赋值当然错误。
修改方法同上: and (Trim(e) = Trim(F))
建议楼主，以后碰到错误，先编译器里好好看看，编译器下面的错误提示信息，E文不行就用个金山词霸，错误提示信息还是可以给你正确引导的。

Answer 5

while (Not adoQuery1.Eof) and (not form10.adoquery1.eof) and (trim(e)=trim(f)) do

Answer 6

while (Not adoQuery1.Eof) and (not form10.adoquery1.eof) and trim(e):=trim(f)这里出错
条件语句中 不能 用 :=