16,556
社区成员
发帖
与我相关
我的任务
分享
Public Class TKVO
Dim kisvch As Object
Dim kiscn As Object
Public Sub New()
Dim test As Object = CreateObject("Excel.Application") '这个语句不报错,正常运行
kisvch = CreateObject("KISProfessionalPlugin.Voucher") '创建金蝶凭证对象,报错
kiscn = CreateObject("KISProfessionalPlugin.clsDataBase") '创建金蝶凭证对象,也报错
End Sub
Public ReadOnly Property KVO
'凭证对象
Get
Return kisvch
End Get
End Property
Public ReadOnly Property KVC
'数据连接对象
Get
Return kiscn
End Get
End Property
End Class
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim kisvch As KISProfessionalPlugin.Voucher = CreateObject("KISProfessionalPlugin.Voucher")
'Dim kiscn As KISProfessionalPlugin.clsDataBase = CreateObject("KISProfessionalPlugin.clsDataBase")
Dim kiscn As Object = CreateObject("KISProfessionalPlugin.clsDataBase")
'kiscn.InitConnection(GenerateConn)
MsgBox("牛逼")
End Sub