得到字符串数组

Question

我试图填充组合框与阵列的所有其他元素的所有其他价值

数组包含这样

(0) server 
(0) sqlInstance 
(1) server 
(1) sqlInstance 
(2) server 
(2) sqlInstance 

我要添加的所有SQLINSTANCE值数据到组合框。不知道如何做，除了可能是另一个阵列。

感谢

Private Sub GetSQLServers() 

     Dim oSQLApp As New SQLDMO.Application 
     Dim oServerNames As SQLDMO.NameList 
     Dim strServer As String 
     Dim ServerArr() As String 

     oServerNames = oSQLApp.ListAvailableSQLServers() 

     For i = 0 To oServerNames.Count 

      strServer = (oServerNames(i)) 
      ServerArr = strServer.Split("\") 

      txtSQLHost.Text = ServerArr(0) 

      For Each s As String In ServerArr 
       'value of server instance 
       cbxSQLServerNames.Items.Add(s) 
      Next 

     Next i 
    End Sub 

这是工作，我敢肯定它是不是

组合框与sqlInstances仅 的txtbox有服务器

oServerNames是填充的最好方式server \ sqlInstance

Private Sub GetSQLServers() 

     Dim oSQLApp As New SQLDMO.Application 
     Dim oServerNames As SQLDMO.NameList 
     Dim strServer As String 
     Dim ServerArr() As String 
     Dim sn As Integer = 1 

     oServerNames = oSQLApp.ListAvailableSQLServers() 

     For i = 0 To oServerNames.Count 

      strServer = (oServerNames(i)) 
      ServerArr = strServer.Split("\") 

      txtSQLHost.Text = ServerArr(0) 

      For Each s As String In ServerArr 

       'value of server instance 
       If ((sn Mod 2) = 0) Then 
        cbxSQLServerNames.Items.Add(s) 
        sn = sn + 1 
       Else 
        sn = sn + 1 
       End If 
      Next 
     Next i 
    End Sub 

使用此选项现在.. 感谢

Private Sub GetSQLServers() 

     Dim oSQLApp As New SQLDMO.Application 
     Dim oServerNames As SQLDMO.NameList 
     Dim strServer As String 
     Dim ServerArr() As String 

     oServerNames = oSQLApp.ListAvailableSQLServers() 

     For i = 0 To oServerNames.Count 

      strServer = (oServerNames(i)) 
      ServerArr = strServer.Split("\") 

      txtSQLHost.Text = ServerArr(0) 

      For Each item In oServerNames 
       Dim parts = item.Split("\") 
       Dim instance = parts(1) 
       cbxSQLServerNames.Items.Add(instance) 
      Next 

     Next i 
    End Sub 

Answer 1

试试这个：

For i = 0 To oServerNames.Count - 1 Step 2 
     Dim serverInstance = oServerNames(i) & "\" & oServerNames(i + 1) 
     cbxSQLServerNames.Items.Add(serverInstance) 
    Next i 

的Count - 1因为，如果你是数10个项目，您是从0数到9

后看你的问题的来源，你说阵列看起来像这样：

(0) server 
(0) sqlInstance 
(1) server 
(1) sqlInstance 
(2) server 
(2) sqlInstance 

这是不可能的。不能有多个具有相同索引的项目。而不是

For Each item In oServerNames 
    Dim parts = item.Split("\") 
    dim instance = parts(1) 
    cbxSQLServerNames.Items.Add(instance) 
Next