以前用的是table现改为adotable
以前相等的条件现不等了
有没办法去掉这种异常。

table.fieldbyname('xm').asstring;和 adotable.fieldbyname('xm').asstring;
有什么区别。

解决方案 »

  1.   

    table是用于BDE的!是boland的数据引擎,
    ADOtable 是用于微软的ADO数据引擎。
      

  2.   

    table 
    procedure Tpcsyzxform.FormShow(Sender: TObject);
    var i:integer;
    begin
      datamodule2.Tab:='蒲城商业中心';
      datamodule2.ftprl.Active:=false;
      datamodule2.ftprl.Active:=true;
      i:=0;
      datamodule2.ftprl.First;
      while not datamodule2.ftprl.eof  do
      begin
        for  i:=0 to 95 do
        begin
          if   datamodule2.ftprl.FieldByName('bh').AsString=TstaticText(Controls[i]).Name then
          begin
            TstaticText(Controls[i]).Caption:=datamodule2.ftprl.fieldbyname('xm').AsString;
          end;
        end;
      datamodule2.ftprl.Next;
      end;
    end;
    adotable
    procedure Tpcsyzxform.FormShow(Sender: TObject);
    var i:integer;
    begin
      datamodule2.Tab:='蒲城商业中心';
      datamodule2.adoftprl.Active:=false;
      datamodule2.ftprl.Active:=true;
      i:=0;
      datamodule2.adoftprl.First;
      while not datamodule2.adoftprl.eof  do
      begin
        for  i:=0 to 95 do
        begin
          if   datamodule2.adoftprl.FieldByName('bh').AsString=TstaticText(Controls[i]).Name then
          begin
            TstaticText(Controls[i]).Caption:=datamodule2.adoftprl.fieldbyname('xm').AsString;
          end;
        end;
      datamodule2.adoftprl.Next;
      end;
    end;
    上面的table控件时执行成功
    下面的adotable控件时执行失败
      

  3.   

    ADOTable连接简单,发布的时候配置也简单,但用起来没table方便,比如table有:findnearest等方法,但ADOTable没有,要该这些地方只有用SQL来写,自己用ADOQuery实现table的一些特有功能吧.
      

  4.   

    你可以改成下面的方式看看是不是读出的数据有问题.procedure Tpcsyzxform.FormShow(Sender: TObject);
    var i:integer;
    var s,s1 : string;
    begin
      datamodule2.Tab:='蒲城商业中心';
      datamodule2.adoftprl.Active:=false;
      datamodule2.ftprl.Active:=true;
      i:=0;
      datamodule2.adoftprl.First;
      while not datamodule2.adoftprl.eof  do
      begin
        for  i:=0 to 95 do
        begin
          s := datamodule2.adoftprl.FieldByName('bh').AsString; 
          s1 : = TstaticText(Controls[i]).Name;                 //加断点.
          if   s = s1 then
          begin
            TstaticText(Controls[i]).Caption:=datamodule2.adoftprl.fieldbyname('xm').AsString;
          end;
        end;
      datamodule2.adoftprl.Next;
      end;
    end;
      

  5.   

    adotable 和adoconnection 连没问题
    table有没有办法和adoconnection连