|
Тема |
Сигурно е нещо тъпо ... |
|
Автор |
dalt (Analog Man) |
|
Публикувано | 17.07.03 13:39 |
|
|
Но при мен долу-постнатия код връща стойност 1 на RecCount, а би трябвало 15 - толкова записа селектира SQL едитора на Interbase.
Query:=Tstringlist.Create;
Query.clear;
Form1.sql.Close;
Form1.sql.SQL.clear;
Form1.sql.sql.Add('SELECT NAME.SERIAL,PERM FROM FACTURA INNER JOIN NOMEN ON FACTURA.SAPCODE=NOMEN.SAPCODE WHERE NOMER='+main.AdfNomer);
Form1.sql.Open;
Form1.sql.First;
for I := 1 to form1.sql.RecordCount do begin
Query.Add(form1.sql.FieldByName('NAME').AsString);
Query.Add(form1.sql.FieldByName('SERIAL').AsString);
Query.Add(form1.sql.FieldByName('PERM').AsString);
form1.sql.Next
end;
Моля за помощ.
Благодаря
|
| |
|
|
|