VB6 passing parameter to .Dsr RPT

avantilim

VB6 passing parameter to .Dsr RPT


求助....怎样从"Form" pass parameter value 去 .Dsr Rpt?

我试

CR01.ParameterFields(0).Value = "100001"

Error Message = "Run-time error '9':
Subscript out of range

谢谢....

黑色11

回复 1# avantilim

我猜而已：ParameterFields(0).Value  会不会从 1 开始呢？

mbhoo

Dsr.sql parameter1 parameter2

avantilim

回复  avantilim

我猜而已：ParameterFields(0).Value  会不会从 1 开始呢？
黑色11 发表于 13-6-2012 06:48 AM

试过了   ParameterFields(1).value = 1001不能....


之前用CR7但是在Win7 跑不到...(在XP就没问题)
    Form1.CR1.ReportFileName = "C:\Bill.rpt"
    Form1 .CR1.DataFiles(0) = "C:\DB01.mdb"


Form1.CR1.Destination = crptToWindow
    Form1 .CR1.Action = 1 'Run the Report


然后Install CR9 也不能.....所以就用 .Dsr 的方法...
但是parameter传不过去...

雪儿与小鱼儿

可以试一下 CR01.ParameterFields(1).AddCurrentValue "1001" 吗？

avantilim

可以试一下 CR01.ParameterFields(1).AddCurrentValue "1001" 吗？
雪儿与小鱼儿 发表于 19-6-2012 01:58 PM

   谢谢你的分享。。。要几天后才能试噢。。。