procedure TFrmLocPrint.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var S, X: string;
begin
S := AdoLotStorageitem_num.AsString;
if (S <> X) and (X <> '') then
Color := clGrayText
else
Color := clWhite;
X := S;循环结束后X都有值的,但是循环下一次的时候,X始终=''了,请问哪里出了问题?
var PrintBand: Boolean);
var S, X: string;
begin
S := AdoLotStorageitem_num.AsString;
if (S <> X) and (X <> '') then
Color := clGrayText
else
Color := clWhite;
X := S;循环结束后X都有值的,但是循环下一次的时候,X始终=''了,请问哪里出了问题?
但是不管怎么样,程序运行到
Color := clGrayText 时,该条记录却没有显示clGrayText颜色,请问还需在哪里设置?
QRDBText1 怎么用代码来设置它的背景色
QRDBText1.color := clMenuBar
以上代码在程序运行后不起作用,请问应该怎么写?