明细表分成四栏，从左到右打印。
我的问题主要是：我单独一个表做分栏打印。我能做出来。
主细表的时候就不知是怎么做了。
当我在QRSubDetail的NeedData事件里写上代码后，预览就一片空白。
procedure TReportWPForm.QRSubDetail1NeedData(Sender: TObject;
var MoreData: Boolean);
var
I: integer;
begin
with DM.adoPrintAllergendo
begin
MoreData := True;
for I:= 1 to 4do
begin
if Eof then
Break;
case I of
1: begin
EName1.Caption :=FieldByName('english_name').AsString;
Name1.Caption :=FieldByName('name').AsString;
result1.Caption :=FieldByName('result').AsString;
end;
2: begin
EName2.Caption :=FieldByName('english_name').AsString;
Name2.Caption :=FieldByName('name').AsString;
result2.Caption :=FieldByName('result').AsString;
end;
3:begin
EName3.Caption :=FieldByName('english_name').AsString;
Name3.Caption :=FieldByName('name').AsString;
result3.Caption :=FieldByName('result').AsString;
end;
4:begin
EName4.Caption :=FieldByName('english_name').AsString;
Name4.Caption :=FieldByName('name').AsString;
result4.Caption :=FieldByName('result').AsString;
end;
end;
Next;
end;
if Eof then
MoreData := False;
end;
end;
end.
