得到字符串數組

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