通过列表进行迭代

Question

我试图遍历这个列表并获得一次一个医生的值。

在excel文档中，每个医生都有多个医生，但我希望输出是一个医生。

在excel文档中，它会出现HILL CANN CANN HILL，这就是我现在回来的。

但我想每个医生迭代所以它会去山连山CANN CANN

 Dim physname As New List(Of String)() 

    'Get all of the data from tblPhysician that you will use and put into a list for searching the excel file 
    Sql = "select * from tblPhysician " 
    conn = New OdbcConnection(connectionString) 
    conn.Open() 
    comm = New OdbcCommand(Sql, conn) 
    dr = comm.ExecuteReader() 

    'Populate the physname list with the doctors names 
    While (dr.Read()) 
     physname.Add(dr("PhysicianName").ToString()) 
    End While 

range = oxlsheet.UsedRange 
    For rcnt = 1 To range.Rows.Count 
     For ccnt = 2 To 6 
      varray = CType(range.Cells(rcnt, ccnt), Excel.Range) 
      If (IsNumeric(varray.value)) Then 
       temp = varray.value.ToString 
      Else 
       temp = varray.value 
      End If 

      'Iterate through physname list for each doctor in the list 
      For Each doctor As String In physname 

       If (rcnt > 8) Then 
        If (IsNumeric(varray.Columns(4).value)) Then 
         temp2 = varray.Columns(4).value.ToString 
        Else 
         temp2 = varray.Columns(4).value 
        End If 

        'If the name in the excel column matches, write out the name and value 
        If (temp2 = doctor) Then 
         Console.WriteLine(varray.Columns(4).value) 
         Console.WriteLine(varray.Columns(5).value) 
         Console.ReadLine() 
        End If 


       End If 

      Next 

     Next 
    Next 

Answer 1

下面是使用LINQ一些例子。我强烈建议你阅读它，因为那里有一些强大的东西。学习LINQ以及lambda表达式和匿名方法/函数可能会非常有帮助！

Imports System 
IMports System.Collections.Generic 
Imports System.Linq 

Public Module Module1 

    Public Sub Main() 
     Dim physname as new List(Of String) From {"HILL", "CANN", "CANN", "HILL"} 

     ' Output the raw list as a baseline... 
     Console.WriteLine("Raw list of physicians:") 
     For Each physician as string in physname 
      Console.WriteLine(physician) 
     next 

     ' Using Distinct will select each physician once... 
     Console.WriteLine() 
     Console.WriteLine("Distinct physicians:") 
     For Each physician as String in physname.Distinct() 
      Console.WriteLine(physician) 
     next 

     ' Sort the list in place and then display... 
     Console.WriteLine() 
     Console.WriteLine("Raw physicians list ordered:") 
     physname.Sort() 
     For Each physician as String in physname 
      Console.WriteLine(physician) 
     next 
    End Sub 
End Module 

这个例子并不直接解决您的问题在分类复制和粘贴 - 到 - 你的项目的时装，但它说明了几种方法通过一个普通的列表进行迭代。