解决了用SP传参数弹框的问题，

Dim crt As New cryreport.cryreport1
\'设置数据库名称
Dim DBName As String="db"
\'数据库登录用户名
Dim DBUserName As String="sa"
\'数据库登录密码
Dim DbUserPwd As String="sa"
\'需要传入的参数名称
Dim item_no As String="@item_no"
\'传入的参数编号
Dim item_no1 As String="503020-000326"
\'第二个参数
Dim loc As String="@loc12"
Dim loc12 As String="SZBC"
\'增加参数信息
crt.AddParameter(item_no,item_no1)
crt.AddParameter(loc,loc12)
设置数据库登录信息
crt.DataBaseName=DBName
crt.ServerName="DATABASE"
crt.User=DBUserName
crt.Pwd=DBUserPwd
\'如果不是用存储过程而是用表，请设置SQL语句
crt.sql="select top 1000 * from cpcfa
\'设置数据库连接串信息
\'crt.c & ServerName & ";initial

catalog=" & DBName & ";user id =" & DBUserName &

";password=" & DBUserPwd
\'crt.sql=FileSys.ReadAllText("C:\\Documents and

Settings\\Administrator\\My Documents\\SQL Server

Management Studio\\Projects\\20130731.sql")
\'设置报表文件路径
crt.filepath="D:\\EPN2\\Reporting\\ICRPIO.rpt"
\'打开报表预览对话框
crt.ShowDialog()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:水晶报表控件开发更新(v1.0).zip

呵呵，谢楼主分享。

水晶报表学习