VB6.0+CrystalReport9.2+Installshield遇到的问题。

原创 2006年05月17日 13:39:00

最近在做一个项目,遇到了一个怪问题。

项目情况:

开发工具: vb6.0+crystalreprt9.2中文版

程序中使用了CRviewer9控件(打印预览)。

问题:在用InstallShield10.5对程序进行打包后,打包方法采用这个方法。在目标机器安装后,运行程序。在使用了CRviewer9的窗口,显示窗口前回水晶报表会弹出一个提示"A Crystal Reports job failed because a free license could not be obtained in the time allocated."点确定后程序可以使用。

原因:出现这个问题的原因是水晶报表的License不够,一台机器每次只能运行一个CRviewer9,显示多个需购买License。但是我的程序就只显示一个CRviewer9控件啊?经过对程序本身的分析发现,程序中有一个地方对CRviewer9进行了重复的调用。就是这段代码引起的错误。这个重复调用很隐蔽,它的出现,也在此给我敲响了警钟(呵呵,当然这段程序不是我这个“高手”编的)。现在来分析一下错误原因。程序里有一个字程序CrpView()用于显示调用CRviewer9控件。程序里还有一个地方用到了combobox控件。

有一段程序是这样的。

Private Sub Form_Load()

..................................

    Combobox1.ListIndex = initOrder
'    Call CrpView(Combobox1.ListIndex = initOrder)    '根据参数值显示预览画面

.................................

End Sub

Private Sub Combobox1_Click()
......................
  

        Call CrpView(Combobox1.ListIndex = initOrder) '根据参数值显示预览画面
  
...................................
End Sub

问题出在Combobox1.ListIndex = initOrder,这里隐含了一次Combobox1_Click()调用,而Combobox1_Click()里有一次Call CrpView()的调用而在用Combobox1.ListIndex = initOrder作参数就形成了多次调用。

删掉一个from_load中的Call CrpView(),将参数改为变量调用这个问题就解决了。

 

 

InstallShield9打包 vb6+水晶报表中文版9.2

需要打包的文件列表如下:以下文件添加到InstallShield-> Components-> WINSYSDIRSharedSelfRegFiles->Static File Links下 ----...
  • benqmm
  • benqmm
  • 2005年12月20日 16:21
  • 1314

VB6.0 程序升级到 VB 2008 相关问题总结

VB6.0 程序升级到 VB 2008 相关问题总结 VS 20008在很大程度向VB6老程序员做出了让步,使得VB6程序员升级到.net 比以前要容易得多了。许多地方考虑了VB6升级的问题,如增加...

VB6.0的编程问题

  • 2007年11月08日 22:03
  • 31KB
  • 下载

学习一个月vb6.0总结

vb6.0学习了将近一个月了,总结下这一个月学习vb6.0的心得,从开始的浑浑噩噩,昏天度日,到现在的学习新的知识,知道学习是一个枯燥乏味的过程。通过学习知道了自己知识的匮乏,想要将来不被社会淘汰,只...

VB6.0中提示:该部件的许可证信息没有找到,在设计环境中,没有合适的许可证使用该功能”的解决办法

用VB6.0中的某些控件时总是提示“该部件的许可证信息没有找到,在设计环境中,没有合适的许可证使用该功能”~!(主要是因为VB6.0精简版) 具体解决方法: 这里需要一个工具:vbcli.ex...

vb6.0 MSDN的安装位置

最近下了个vb在学习,看到别人建议下载MSDN,顺便也下了.下载了个"MSDN VB6.0精简版.zip".由于刚开始看,安装后不知道在哪,如何打开. 在此把过程写下来: 解压后 点击set...

vb6.0 连接数据库,查询,插入和修改

一:   创建连接 Public Function CreateSQLConn() As Boolean Const ProcName = "CreateSQLConn" Dim strConnect...
  • czf2505
  • czf2505
  • 2013年11月04日 11:31
  • 1189
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB6.0+CrystalReport9.2+Installshield遇到的问题。
举报原因:
原因补充:

(最多只允许输入30个字)