S sallun Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-30 #1 我做的报表中有一个数值型字段，我想在程序运行阶段，判断它如果<0， 则报表中该字段的QRDBText红色显示，不知如何做？
Y yifeng Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-30 #2 应该是在QRDBtext的onprint事件里面搞定吧!
C cytown Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-30 #3 procedure TForm1.QRDBText1Print(sender: TObject; var Value: String); begin if table1.fieldbyname("thefield").asfloat<0 then QRDBText1.Font.Color:=clRed; end;
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String); begin if table1.fieldbyname("thefield").asfloat<0 then QRDBText1.Font.Color:=clRed; end;
I icefire Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-30 #5 try following line: QRDBTEXT.FONT.COLOR:=clred;
S sallun Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-31 #6 我在onprint中加了如下代码： procedure TDegreeStatForm.QRDBText5Print(sender: TObject; var Value: String); begin if Query1.FieldByName('thefield').AsFloat < 0 then QRDBText1.Font.Color := clRed else QRDBText1.Font.Color := clBlack; end; 可不知为什么，红色显示的数值都是一样的。
我在onprint中加了如下代码： procedure TDegreeStatForm.QRDBText5Print(sender: TObject; var Value: String); begin if Query1.FieldByName('thefield').AsFloat < 0 then QRDBText1.Font.Color := clRed else QRDBText1.Font.Color := clBlack; end; 可不知为什么，红色显示的数值都是一样的。
