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

Question

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

Answer 1

  
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');