vb值如何 传递到crystal report crystal report有输入参数的窗口怎样将vb中的值传递到这个窗口,或者不弹出输入参数值的窗口,直接显示该参数查询的内容. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我看到crystal report有 selectionformula属性,我的在vb里用crystal report就没有,晕 objCRReport.ParameterFields(参数序号,从1开始).AddCurrentValue(值)如objCRReport.ParameterFields(1).AddCurrentValue("公司名称测试1") 此句需出现在CRViewer91.ReportSource = objCRReport之前。 谢谢啊泰,这个值传递到哪里?objCRReport.ParameterFields(1).AddCurrentValue("公司名称测试1") 是传递到 parameterfields的选项1的discrete value里吗?怎么我的cr不显示传递的值.....Private Sub Form_Load()Screen.MousePointer = vbHourglassCrystalReport1.ParameterFields(1).AddCurrentValue ("10000012")CRViewer1.ReportSource = ReportCRViewer1.ViewReportScreen.MousePointer = vbDefaultEnd Sub Private Sub Form_Load() Screen.MousePointer = vbHourglass Report.EnableParameterPrompting = False Report.ParameterFields(1).AddCurrentValue ("10000012") CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub 是没传过去还是没显示出来?6楼的代码是把参数传给了报表中Parameter Fields里的第一个参数,你在设计报表的时候还需要把这个东西拖到报表中的合适位置才能显示出来。 crystal 报表中也要设置相应的接收参数 crystal report 里的parameter fields(1)我用 select expert关联到我的表里的字段的.crystal report显示的时候要输入parameter fields(1)的值 代码上没有多少花头,是不是模板上有什么问题,发出来看看?babyt#163.com 今天看了一个印度电影《功夫小蝇/苍蝇侠》,被它小小的感动了一把,推荐下 简单问题 高手在那?为何一个简单的问题不能答复??? 一种很新颖的for循环,没见过,高手给讲讲 窗体效果 做好的程序如果上传到服务器上的话,由于路径改变所以不能运行,请问怎么解决这个问题? 在线等待中。谢谢了! 又来提问了谢谢 再谈ADO Recordset的Close方法和set RS=nothing DCOM配制问题 这样的窗口如何做? MSHFlexGrid问题 在VBA中怎么获取相关的函数帮助
我的在vb里用crystal report就没有,晕
objCRReport.ParameterFields(参数序号,从1开始).AddCurrentValue(值)
如
objCRReport.ParameterFields(1).AddCurrentValue("公司名称测试1")
CRViewer91.ReportSource = objCRReport之前。
这个值传递到哪里?
objCRReport.ParameterFields(1).AddCurrentValue("公司名称测试1") 是传递到 parameterfields的选项1的discrete value里吗?
怎么我的cr不显示传递的值.....Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CrystalReport1.ParameterFields(1).AddCurrentValue ("10000012")
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Screen.MousePointer = vbHourglass
Report.EnableParameterPrompting = False
Report.ParameterFields(1).AddCurrentValue ("10000012")
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub