调用代码

    Sub GetSqlServers()

        Me.Cursor = Cursors.WaitCursor

        Dim a As ArrayList

        Dim g As New GetServers

        a = g.Send()

        For Each c As SqlServer In a

            Me.cb_Server.Items.Add(c)

        Next

        Me.Cursor = Cursors.Default

    End Sub

    Sub GetSqlServers()

        Me.Cursor = Cursors.WaitCursor

        Dim a As ArrayList

        Dim g As New GetServers

        a = g.Send()

        For Each c As SqlServer In a

            Me.cb_Server.Items.Add(c)

        Next

上一页  [1] [2] [3] [4] [5] [6] [7]  下一页