Module的类型初始化程序引发了异常 [英] Type initializer for Module threw an exception

问题描述

我在vb.net 2005中有一个名为MdlVar的模块....当我在32位平台上运行它运行良好时，但对于64位平台，它会抛出错误MdlVar的类型初始化程序引发异常。 。

以下是MDLVar文件中的代码...

I have Module named MdlVar in vb.net 2005....When I run it in 32-bit platform it runs well,But for 64-bit platform it throws error "Type initializer for MdlVar threw an exception"...
Below is the code in MDLVar file...

Option Strict Off
Option Explicit On
Module MdlVar
	
	Public MainCon As New ADODB.Connection
    Public PubCon As New ADODB.Connection
	Public MdlVarUName As String
	Public MdlVarInt As String
	Public MdlVarDate As Date
	Public ProjectName As String
	
	Public VarIsAdmin As String
	Public VarIsOfficer As String
	Public VarRenDate As Date
	
	Public CmpCode As Short
	Public M_PALIKACD As Short
	Public CmpName As String
	Public CompName As String
	Public CmpTaluka As String
	Public CmpDist As String
	Public ECmpName As String
	Public ECmpTaluka As String
	Public ECmpDist As String
	
	Public VarCurrentYear As String
	Public VarCurrYear As String
	Public VarStartDate As Date
	Public VarEndDate As Date
	Public VarAddED As Short '   1 - Add, 2- Edit, 3 -Delete 22/07/08
	Public VarNoticeDate As Date
	Public VarNoticeDate_2 As Date
	Public VarIsClosed As Boolean
	
	Public M_NTrans As String
	Public M_NoticeTrn As String
	Public M_ClosingTrn As String
	
	Public RPTSEL As String
	Public RptHeading As String
	Public RptSql As String
	Public BDRSql As String
	Public BDRSql1 As String
	Public Report As New CRAXDRT.Report
	
	Public M_ACODE As Integer
	Public VNM As String
	
	Public VarWno As String
	Public VarMno As String
	Public VarMNo1 As String
	Public VarJwmno As String
	Public VarTMno As String
	Public VarTMno1 As String
	Public VarTJwmno As String
	
	Public M_BTaxRate As Double
	Public M_BTaxRate25 As Double
	Public M_BTaxRate40 As Double
	Public M_LOCECODE As String
	Public M_F1Bharank As Double
	Public M_F2Bharank As Double
	Public M_F3Bharank As Double
	Public M_F4Bharank As Double
	Public NoOfTax As Double
	Public VarVasulatTotalDate As String
	
	Public AmtStr As String
	Public AmtNum As Double
	
	Public MSrno As Integer
    Public RsTaxName As New ADODB.Recordset
    Public ds As DataSet
    Public Con As String
    Public da As Odbc.OdbcDataAdapter
	
    Public Function Connect() As ADODB.Connection
        Dim Con As ADODB.Connection
        Con = New ADODB.Connection
        'Select Case CmpCode
        '    Case 83 ' Vapi
        Con.Open("PROVIDER=MSDASQL;dsn=******;uid=;pwd=*****;")
        'End Select
        Connect = Con
    End Function
    
    Public Function MainConnect() As ADODB.Connection
        If MainCon.State = 1 Then MainCon.Close()
        MainCon.Open("PROVIDER=MSDASQL;dsn=*******;pwd=******;")
        MainConnect = MainCon
    End Function
End Module

我无法找出错误是什么...请帮助我...

I am not able to find out what is the error...Please help me...

推荐答案

更改选项严格关闭到 Option Strict On 并且编译器会通过指出它来帮助你。



祝你好运！

Change Option Strict Off to Option Strict On and the compiler will help you by pointing it out.

Good luck!

这篇关于Module的类型初始化程序引发了异常的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！