水晶报表，如何用程序改变其中的图片？正确再给100

Question

要求完整源码

Answer 1

'
Private Sub Section12_Format(ByVal pFormattingInfo As Object)
    Select Case fldLastYearsSales.Value
    Case Is < 1000
        Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup20.bmp")
    Case 1001 To 2000
        Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup30.bmp")
    Case 2001 To 3000
        Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup40.bmp")
    Case Is > 3000
        Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup50.bmp")
    End Select
End Sub当然有些情况你也可以把设置图片的代码写在预览窗体中

Answer 2

fldLastYearsSales.Value是个什么值？ 你用的的是哪个版本的水晶报表？谢了

Answer 3

fldLastYearsSales.Value是报表中的一个字段，在这里用来做条件，根据这个条件的不同值加载不同的图片，8.5以上都可以这样做

Answer 4

fldLastYearsSales是报表的一个字段，fldLastYearsSales.Value是字段的值