专家坐堂-请问，foxtable如何使用通过wsdl.exe生成的vb文件（接口服务文件）Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用Bin在2013-12-24 14:30:00的发言：

\'\'\'<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("wsdl", "2.0.50727.1432"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="CfgCompManagerServiceSOAP", [Namespace]:="http://service.lrd.org.cn"), _
System.Xml.Serialization.XmlIncludeAttribute(GetType(getAllCfgCompResponse)), _
System.Xml.Serialization.XmlIncludeAttribute(GetType(getAllCfgComp)), _
System.Xml.Serialization.XmlIncludeAttribute(GetType(CfgComp))> _
Partial Public Class CfgCompManagerService
    Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

    Private getAllCfgCompOperationCompleted As System.Threading.SendOrPostCallback

    \'\'\'<remarks/>
    Public Sub New()
        MyBase.New
        Me.Url = "http://localhost:8080/cfmSoa/ns"
    End Sub

    \'\'\'<remarks/>
    Public Event getAllCfgCompCompleted As getAllCfgCompCompletedEventHandler

    \'\'\'<remarks/>
    <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://service.lrd.org.cn/NewOperation", RequestNamespace:="http://service.lrd.org.cn", ResponseNamespace:="http://service.lrd.org.cn", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
    Public Function getAllCfgComp() As <System.Xml.Serialization.XmlElementAttribute("CfgComp", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> Object()
        Dim results() As Object = Me.Invoke("getAllCfgComp", New Object(-1) {})
        Return CType(results(0),Object())
    End Function

    \'\'\'<remarks/>
    Public Function BegingetAllCfgComp(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
        Return Me.BeginInvoke("getAllCfgComp", New Object(-1) {}, callback, asyncState)
    End Function

    \'\'\'<remarks/>
    Public Function EndgetAllCfgComp(ByVal asyncResult As System.IAsyncResult) As Object()
        Dim results() As Object = Me.EndInvoke(asyncResult)
        Return CType(results(0),Object())
    End Function

    \'\'\'<remarks/>
    Public Overloads Sub getAllCfgCompAsync()
        Me.getAllCfgCompAsync(Nothing)
    End Sub

    \'\'\'<remarks/>
    Public Overloads Sub getAllCfgCompAsync(ByVal userState As Object)
        If (Me.getAllCfgCompOperationCompleted Is Nothing) Then
            Me.getAllCfgCompOperationCompleted = AddressOf Me.OngetAllCfgCompOperationCompleted
        End If
        Me.InvokeAsync("getAllCfgComp", New Object(-1) {}, Me.getAllCfgCompOperationCompleted, userState)
    End Sub

    Private Sub OngetAllCfgCompOperationCompleted(ByVal arg As Object)
        If (Not (Me.getAllCfgCompCompletedEvent) Is Nothing) Then
            Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
            RaiseEvent getAllCfgCompCompleted(Me, New getAllCfgCompCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
        End If
    End Sub

    \'\'\'<remarks/>
    Public Shadows Sub CancelAsync(ByVal userState As Object)
        MyBase.CancelAsync(userState)
    End Sub
End Class

\'\'\'<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("wsdl", "2.0.50727.1432"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://service.lrd.org.cn")> _
Partial Public Class CfgComp

    Private companyIdField As String

    Private tagSeqField As String

    \'\'\'<remarks/>
    <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _
    Public Property companyId() As String
        Get
            Return Me.companyIdField
        End Get
        Set
            Me.companyIdField = value
        End Set
    End Property

    \'\'\'<remarks/>
    <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="integer")> _
    Public Property tagSeq() As String
        Get
            Return Me.tagSeqField
        End Get
        Set
            Me.tagSeqField = value
        End Set
    End Property
End Class

\'\'\'<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("wsdl", "2.0.50727.1432")> _
Public Delegate Sub getAllCfgCompCompletedEventHandler(ByVal sender As Object, ByVal e As getAllCfgCompCompletedEventArgs)

\'\'\'<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("wsdl", "2.0.50727.1432"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class getAllCfgCompCompletedEventArgs
    Inherits System.ComponentModel.AsyncCompletedEventArgs

    Private results() As Object

    Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
        MyBase.New(exception, cancelled, userState)
        Me.results = results
    End Sub

    \'\'\'<remarks/>
    Public ReadOnly Property Result() As Object()
        Get
            Me.RaiseExceptionIfNecessary
            Return CType(Me.results(0),Object())
        End Get
    End Property

这一段复制到全局代码,对应的DLL引用好.