根据文本框内数据更改显示颜色% a. Z Z/ }1 _) H& g
报表中60分以下用红字60分以上用兰字显示怎么做?
6 q# N$ ^/ ~, m' E# w7 t( r2 p 在主体的格式化事件里输入如下代码:! y1 e, k" X' {( ]2 o9 y
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)! H; G& y" H9 t9 ^( k- c
If TextBoxNumber < 60 Then 'TextBoxNumber为分数控件4 m5 h x; D3 @9 ^
TextBoxNumber.ForeColor = lngRed '改为红色
& Z' V, E, b* _6 q* i' l4 p ElseIf TextBoxNumber > 60 and TextBoxNumber < 80 Then
% u6 a' v6 |3 n2 u+ k: Y5 j TextBoxNumber.ForeColor = lngBlue '改为兰色: z1 `: z' |# Q! G2 z2 L5 N
else& f# |3 F$ Q' k1 r L
TextBoxNumber.ForeColor = lngBlack '改为黑色- Q/ e( P4 S, f) G* B, L
End If _) Q6 s4 _5 [. Y) P! I
End Sub |