|
在报表利为何根据条件设置不了字体颜色呢
代码如下, 是不是少了啥东西,请指点。
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngRed As Long
Dim lngGreen As Long
lngRed = RGB(255, 0, 0)
lngGreen = RGB(0, 255, 0)
If Me.txtDiametercon = "Ok" Then
Me.txtDiametercon.ForeColor = lngGreen
Else
txtDiametercon.Value = "NOT OK"
txtDiametercon.ForeColor = lngRed
End If
End Sub
但是没有ForeColor , FontWeight属性,为啥阿
还有 报表里的文本框为何不能赋值呢,同样的句子在窗体里就可以啊
'Set fm = Forms!frmeditsample!edit_sub.Form
'
' If Not IsNull(fm!txtstdD) Then
'
' Me.txtstdD11 = fm!txtstdD
' Else
' Me.txtstdD11 = ""
' End If
|
|