VB6(Fast Report Studio 4.6.80)

在网上找了很长时间的Fastreport，各种版本的都试了。均不理想。Studio3.20 也用过。有些方法不支持，有些方法使用起来非常不方便。经过长时间的摸索后 在studio 4.6.80的版本上试验证明，虽然仍有不理想的地方。但还凑合着使用。

下面是一个通过传递参数建立的查询报表（where子句的两个参数）。希望实现的功能是 select * from tblWeight where DDate>'2009-07-09 00:12:23' and DDate <'2009-10-12 08:12:23'

将上述参数传递给已建好的报表的组件“ADOQuery1”内的两个参数Param1和Param2。

Dim frx As FastReport.TfrxReport

Private Sub Form_Load()
Set frx = CreateObject("FastReport.TfrxReport")

frx.LoadReportFromFile ("Simple group.fr3")

Dim Query As FastReport.TfrxADOQuery
Dim Param1 As FastReport.IfrxParamItem
Dim Param2 As FastReport.IfrxParamItem
Set Query = frx.FindObjectEx("ADOQuery1")
If Query Is Nothing Then Return
Set Param1 = Query.ParamByName("Param1")
If Param1 Is Nothing Then Return
Param1.Expression = "'2009-07-09 00:12:23'"
Set Param1 = Nothing

Set Param2 = Query.ParamByName("Param2")
If Param2 Is Nothing Then Return
Param2.Expression = "'2009-10-12 08:12:23'"
Set Param2 = Nothing

frx.ShowReport
Set Query = Nothing

End Sub

切记，参数引号中的两个 ' '不要漏掉。

还有一个有趣的问题，在ReportDesigner中建立ADOquery1的SQL语句时，写完SQL语句后，两个参数并不会自动直接出现在参数编辑界面里，如果出现这情况，可以先在SQL设计器里生成一个参数的SQL语句，然后把代码拷贝到SQL语句窗口，然后手工加上 and后面的第二个参数，最后调出参数报表，这样就可以看到Param1 和Param2了。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!