我想知道adoquery1有没有zt这个这段

[bruce20062006]

with adoquery1 do
我想知道adoquery1有没有zt这个这段

[sparklerl]

  
var 
  i,j:integer;

  ..........

  ADOQuery1.Open;//保证ADOQuery1数据集是打开的

  j:=0;
  with ADOQuery1 do
  begin
    for i := 0 to FieldCount-1 do
    begin
      if ADOQuery1.Fields[i].FieldName='zt' then
        begin
          j:=1  ;
          break;
        end;
    end;
  end;
  if j=1 then
    showmessage('有zt')
    else
    showmessage('无zt');