Скачать: CL | DM;

Help List index out of bounds (0)   Найти похожие ветки 

← →
petvv ©   (2006-05-15 13:09) [0]

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
Fuel.IndexDefs.Update;
for I := 0 to Fuel.IndexDefs.Count - 1 do
if Fuel.IndexDefs.Items[I].Fields = "NUM" then
  Fuel.IndexName := Fuel.IndexDefs.Items[I].Name;
  Fuel.Active:=True;

Osnovan.IndexDefs.Update;
for I := 0 to Osnovan.IndexDefs.Count - 1 do
if Osnovan.IndexDefs.Items[I].Fields = "Num" then
  Osnovan.IndexName := Osnovan.IndexDefs.Items[I].Name;
  Osnovan.Active:=True;

Osn.IndexDefs.Update;
for I := 0 to Osn.IndexDefs.Count - 1 do
if Osn.IndexDefs.Items[I].Fields = "ShiftNum;Product;Osnovanye" then
  Osn.IndexName := Osn.IndexDefs.Items[I].Name;
  Osn.Active:=True;

qOsn.Params[0].AsDateTime:=DateBeg.Date;
qOsn.Params[1].AsDateTime:=DateEnd.Date;
qOsn.SQL.Text:="select Fuel.Marka, Osnovan.Name, sum(TotOsnov.Lit), sum(TotOsnov.Cur) from TotOsnov, Fuel, Osnovan where Osn.ShiftTo>=:QDBeg and Osn.ShiftTo<=:QDEnd group by MARKA, Name";
qOsn.Active:=True;
end;

Итог = грабли !!!
---------------------------
Otchet
---------------------------
List index out of bounds (0)
---------------------------
ОК  
---------------------------

Подскажите плз чего я упустил или не правильно сделал ?

---

← →
unknown ©   (2006-05-15 13:21) [1]

На какой строчке ошибка?
А вообще - самое подозрительное вот это:
qOsn.Params[0].AsDateTime:=DateBeg.Date;
qOsn.Params[1].AsDateTime:=DateEnd.Date;
qOsn.SQL.Text:=<skipped>;
Может все-таки
qOsn.SQL.Text:=<skipped>;
qOsn.Params[0].AsDateTime:=DateBeg.Date;
qOsn.Params[1].AsDateTime:=DateEnd.Date;
?

---

← →
petvv ©   (2006-05-15 13:26) [2]

Логично

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c