level 4
xhfdhkgjd
楼主
三个需要显示的字段:
Invoice No.: ST-1001
Date: 2019-02-26
Bank Information: 建设银行
以下是我的代码,但是只能显示第一个项目的发票号,时间和银行,求这三个字段如何根据项目的不同,而显示不同的信息。
begin
if Proqry.FieldByName('InvoiceNo').AsString <> '' then
frmDM.ExcelSheet.Cells.Item[6, 'D'].Value :='Invoice No.: ' + Proqry.FieldByName('InvoiceNo').AsString;
if not Proqry.FieldByName('InvoiceDate').IsNull then
frmDM.ExcelSheet.Cells.Item[8, 'D'].Value :=' Date: '+DateTimeToStr( Proqry.FieldByName('InvoiceDate').AsDateTime);
if Proqry.FieldByName('Bank').AsString <> '' then
frmDM.ExcelSheet.Cells.Item[20, 'A'].Value := 'Bank Information: ' + Proqry.FieldByName('Bank').AsString;
2019年02月27日 06点02分
1
Invoice No.: ST-1001
Date: 2019-02-26
Bank Information: 建设银行
以下是我的代码,但是只能显示第一个项目的发票号,时间和银行,求这三个字段如何根据项目的不同,而显示不同的信息。
begin
if Proqry.FieldByName('InvoiceNo').AsString <> '' then
frmDM.ExcelSheet.Cells.Item[6, 'D'].Value :='Invoice No.: ' + Proqry.FieldByName('InvoiceNo').AsString;
if not Proqry.FieldByName('InvoiceDate').IsNull then
frmDM.ExcelSheet.Cells.Item[8, 'D'].Value :=' Date: '+DateTimeToStr( Proqry.FieldByName('InvoiceDate').AsDateTime);
if Proqry.FieldByName('Bank').AsString <> '' then
frmDM.ExcelSheet.Cells.Item[20, 'A'].Value := 'Bank Information: ' + Proqry.FieldByName('Bank').AsString;
