水晶报表异常 [英] Crystal Reports exception

问题描述

嗨！

每当我尝试在.net应用程序中打开Crystal Reports时，都会出现异常

``CrystalDecisions.CrystalReports.Engine.ReportDocument''的类型初始值设定项引发了异常


如何解决?
请尽快帮助我！

Hi!

Whenever I attempt to open the Crystal Reports in my .net application, I get an exception

The type initializer for ''CrystalDecisions.CrystalReports.Engine.ReportDocument'' threw an exception


How to fix it?
Please help me as soon as possible!

推荐答案

请参阅此链接

http://social.msdn.microsoft.com /Forums/zh-CN/vscrystalreports/thread/f134b4a6-b40a-4064-8ca7-3f3058c20965/ [

see this link

http://social.msdn.microsoft.com/Forums/en-US/vscrystalreports/thread/f134b4a6-b40a-4064-8ca7-3f3058c20965/[^]

" ''DotNetNuke®-http://www.dotnetnuke.com

''版权所有(c)2002-2007

''by DotNetNuke Corporation

''

''特此免费授予获得此软件及其相关
副本的任何人的许可.
"文档文件(以下简称软件")来不受限制地处理软件，包括但不限于

''使用，复制，修改，合并，发布，分发，再许可和/或出售本软件副本的权利，以及

''允许具备软件的人员这样做，但必须符合以下条件:

''

''上述版权声明和本许可声明应包含在所有副本或重要部分中

".

''

"本软件按原样"提供，不提供任何形式的明示或暗示担保，包括但不限于

''关于适销性，特殊目的适用性和非侵权性的担保.在任何情况下都不会

''作者或版权持有人应对任何索赔，损害或其他责任承担责任，无论是

''与软件或使用或其他
有关，与之相关或与之相关的合同，侵权或其他方式
''软件交易.

''

导入System.Web.Services.Protocols

导入System.Diagnostics

导入System.Reflection

导入DotNetNuke.Services.个性化



命名空间DotNetNuke.Modules.IWebXAML

''通过soap标头传递的类

公共类IWebXAMLAuthendicationHeader

公用PortalID为整数

公用用户ID为整数

公用密码为字符串

公用用户名作为字符串

公用ModuleId为整数

结束类



公共类IWebXAMLAuthendication

''常量值

私人班级常量

Public Const LoginErrorMessage As String =登录失败.提供给Web服务方法的凭据无效."

结束类



私有_MethodName作为字符串

私有_PortalID为整数

私有_UserID为整数

私有_Password作为字符串

私有_Username作为字符串

私有_ModuleId作为整数



#Region构造函数"

新建公共子项(将ByVal IWebCredentials作为IWebXAMLAuthendicationHeader)



_PortalID = IWebCredentials.PortalID

_ModuleId = IWebCredentials.ModuleId

_UserID = IWebCredentials.UserID

_Password = IWebCredentials.Password

结束子

#End Region



公共函数IsUserValid()为布尔值

昏暗的loginStatus作为Security.Membership.UserLoginStatus

昏暗的strEncryptionKey作为字符串



''从个性化获取密钥

昏暗的PersonalizationController作为新的PersonalizationController()

昏暗的PersonalizationInfo作为新的PersonalizationInfo()

PersonalizationInfo = PersonalizationController.LoadProfile(_UserID，_PortalID)



如果不是Personalization.GetProfile(PersonalizationInfo，_ModuleId.ToString，"SilverlightKey")则没有

如果CType(Personalization.GetProfile(PersonalizationInfo，_ModuleId.ToString，"SilverlightKey_Expires")，DateTime)< DateTime.Now()然后

''过期的加密密钥

返回False

如果结束

strEncryptionKey = CType(个性化.GetProfile(个性化信息，_ModuleId.ToString，"SilverlightKey")，字符串)



如果_Password = strEncryptionKey那么

昏暗的SilverlightUser作为新的UserInfo()

SilverlightUser = UserController.GetUser(_PortalID，_UserID，False)

_Password = UserController.GetPassword(SilverlightUser，").ToString()

_Username = SilverlightUser.Username

其他

返回False

如果结束

如果结束



昏暗的objUser As用户信息= UserController.ValidateUser(_PortalID，_Username，_Password，"，"，"255.255.255.1"，loginStatus)

如果objUser什么都没有，那么

返回False

其他

返回True

如果结束

最终功能



公共函数GetUserInfo()作为UserInfo

昏暗的loginStatus作为Security.Membership.UserLoginStatus

返回UserController.ValidateUser(_PortalID，_Username，_Password，"，"，"255.255.255.1"，loginStatus)

最终功能

页Balaram


结束类

'' '' DotNetNuke® - http://www.dotnetnuke.com

'' Copyright (c) 2002-2007

'' by DotNetNuke Corporation

''

'' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated

'' documentation files (the "Software"), to deal in the Software without restriction, including without limitation

'' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and

'' to permit persons to whom the Software is furnished to do so, subject to the following conditions:

''

'' The above copyright notice and this permission notice shall be included in all copies or substantial portions

'' of the Software.

''

'' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED

'' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

'' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF

'' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

'' DEALINGS IN THE SOFTWARE.

''

Imports System.Web.Services.Protocols

Imports System.Diagnostics

Imports System.Reflection

Imports DotNetNuke.Services.Personalization



Namespace DotNetNuke.Modules.IWebXAML

'' class that is passed in through the soap header

Public Class IWebXAMLAuthendicationHeader

Public PortalID As Integer

Public UserID As Integer

Public Password As String

Public Username As String

Public ModuleId As Integer

End Class



Public Class IWebXAMLAuthendication

'' const values

Private Class Consts

Public Const LoginErrorMessage As String = "Login failed. Invalid credentials supplied to the web service method."

End Class



Private _MethodName As String

Private _PortalID As Integer

Private _UserID As Integer

Private _Password As String

Private _Username As String

Private _ModuleId As Integer



#Region "Constructors"

Public Sub New(ByVal IWebCredentials As IWebXAMLAuthendicationHeader)



_PortalID = IWebCredentials.PortalID

_ModuleId = IWebCredentials.ModuleId

_UserID = IWebCredentials.UserID

_Password = IWebCredentials.Password

End Sub

#End Region



Public Function IsUserValid() As Boolean

Dim loginStatus As Security.Membership.UserLoginStatus

Dim strEncryptionKey As String



'' Get the Key from Personalization

Dim PersonalizationController As New PersonalizationController()

Dim PersonalizationInfo As New PersonalizationInfo()

PersonalizationInfo = PersonalizationController.LoadProfile(_UserID, _PortalID)



If Not Personalization.GetProfile(PersonalizationInfo, _ModuleId.ToString, "SilverlightKey") Is Nothing Then

If CType(Personalization.GetProfile(PersonalizationInfo, _ModuleId.ToString, "SilverlightKey_Expires"), DateTime) &lt; DateTime.Now() Then

''Expired Encryption Key

Return False

End If

strEncryptionKey = CType(Personalization.GetProfile(PersonalizationInfo, _ModuleId.ToString, "SilverlightKey"), String)



If _Password = strEncryptionKey Then

Dim SilverlightUser As New UserInfo()

SilverlightUser = UserController.GetUser(_PortalID, _UserID, False)

_Password = UserController.GetPassword(SilverlightUser, "").ToString()

_Username = SilverlightUser.Username

Else

Return False

End If

End If



Dim objUser As UserInfo = UserController.ValidateUser(_PortalID, _Username, _Password, "", "", "255.255.255.1", loginStatus)

If objUser Is Nothing Then

Return False

Else

Return True

End If

End Function



Public Function GetUserInfo() As UserInfo

Dim loginStatus As Security.Membership.UserLoginStatus

Return UserController.ValidateUser(_PortalID, _Username, _Password, "", "", "255.255.255.1", loginStatus)

End Function

page balaram


End Class

< pre>< code>& lt;<< strike></strike</code/</pre>

<pre><code>&gt;&lt;<strike></strike></code></pre>

这篇关于水晶报表异常的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！