crystalreport1.dsr

来自「一个很好用的报表控件」· DSR 代码 · 共 21 行

VERSION 5.00
Begin {BD4B4E61-F7B8-11D0-964D-00A0C9273C2A} CrystalReport1 
   ClientHeight    =   8595
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12375
   OleObjectBlob   =   "CrystalReport1.dsx":0000
End
Attribute VB_Name = "CrystalReport1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Section12_Format(ByVal pFormattingInfo As Object)
If Field5.Value > 50000 Then
        Field5.TextColor = vbRed
    Else
        Field5.TextColor = vbGreen
    End If
End Sub