Здравствуйте CO0lGirL, Вы писали:
COGL>при этом данные выводятся в столбец по такому методу COGL>Name Type Type1 Price COGL>1 a a1 65464 COGL>1 a a2 32154 COGL>и т.д. надо чтобы было так.... COGL>Name COGL>1 Type COGL> a Type1 Price COGL> a1 3245 COGL> a2 2151
tempstr:='';
tempstr1:='';
While not Query1.Eof do
begin
if Query1.fieldbyName('Company').asstring = tempstr then
begin
// предполагаю что ConstrType и есть Type
if Query1.fieldbyName('ConstrType').asstring = tempstr1 then
begin
XArr[2]:=' '
XArr[3]:=' ';
XArr[4]:=Query1.FieldByName('GroupTov').AsString;
XArr[1]:= ' ';
XArr[5]:=Query1.FieldByName('SumPrice').AsString;
{вставить строку в ексель}
Query1.next;
end
else
begin
tempstr1 := Query1.fieldbyName('ConstrType').asstring;
XArr[1]:=' ';
XArr[2]:=' ';
XArr[3]:=Query1.fieldbyName('ConstrType').asstring;
XArr[4]:= ' ';
XArr[5]:=' ';
{вставить строку в ексель}
end
end
else
begin
tempstr:=Query1.fieldbyName('Company').asstring;
XArr[1]:=Query1.fieldbyName('Company').asstring;
XArr[2]:=Query1.FieldByName('AdvrtName').AsString;
XArr[3]:=' ';// ну или название полей если нужны
XArr[4]:= ' ';
XArr[5]:=' ';
{вставить строку в ексель}
end
