关于传入水晶报表参数的问题

Question

以下代码没有测试，不过估计是这样。Dim rptApp As CRPEAuto.Application
Dim rpt As CRPEAuto.Report
Dim Parm1 As CRPEAuto.ParameterFieldDefinitionSet rpt = rptApp.OpenReport(App.Path & "test.rpt")
Set Parms = rpt.ParameterFields
Set Parm1 = Parms.Item("var1")        '变量名
Parm1.Text = "aaaaaaaaaaaaaa"         '值

Answer 1

其实你这个放到SQL语句中就行了，何必搞得这样麻烦呢？