rsSql2[i] := TQuery.Create(self);
rsSql2[i].DatabaseName := 'luwangdata';
SqlText := 'select max(UP_DATE) from 路网实验数据 where SUBCONTROLLER_COD like '''+InRCod[i]+'''';
rsSql2[i].SQL.Add(SqlText);
rsSql2[i].Open;
DDDate2[i] := rsSql2[i].Fields[1].AsDateTime;
错误提示:
project TravelTime.exe raised exception class EListError with message 'List index out of bounds(1)'

解决方案 »

  1.   

    DDDate2[i] := rsSql2[i].Fields[1].AsDateTime;/////////////////////
    改一下:
    DDDate2[i] := rsSql2[i].Fields[0].AsDateTime;
      

  2.   

    SqlText := 'select max(UP_DATE) from 路网实验数据 where SUBCONTROLLER_COD like '''+InRCod[i]+'''';/////////////////////////////////只有一个字段,所以rsSql2[i].Fields[1].AsDateTime会越界
      

  3.   

    谢谢,谢谢,可是问题又来了,刚才那个提示我 cannot modify a read only database,我都哭死了
      

  4.   

    你是不是修改rsSql2[i].Fields[0]的值了?
      

  5.   

    没有修改啊,是不是跟我首先设置的Database有关西啊