Vb.net 这是我个人的观点，我真的想发动一场Vb v的C#flame战争LPrefix=collection.ConvertAll（函数（x）x[0].ToString）或更好的dt.aseneumerable.Select（函数（x）x[0].ToString.T

---

这是我个人的观点，我真的想发动一场Vb v的C#flame战争

LPrefix=collection.ConvertAll（函数（x）x[0].ToString）

或更好的

dt.aseneumerable.Select（函数（x）x[0].ToString.ToList（）

感谢您的帮助-VB对我来说太多了，MSDN上的示例非常混乱。告诉我吧！我们这里有一堆遗留的VB代码，我对此非常满意。谢天谢地，我们用C#编写了大多数新代码，我发现使用C#能让我的工作效率大大提高。这是我个人的观点，我真的想发动一场Vb v的C#flame战争！

Dim dt As New DataTable()

        Try
            If conn.State = ConnectionState.Open Then
                conn.Close()
            Else
                conn.Open()
                Dim cmd = New SqlCommand("LoadCodes", conn)
                cmd.CommandType = CommandType.StoredProcedure

                dt.Load(cmd.ExecuteReader(CommandBehavior.CloseConnection))
                Dim collection As New List(Of DataRow)
                collection = dt.AsEnumerable.ToList

                LPrefix = collection.Cast(Of String)()

            End If
        Catch ex As Exception
            MsgBox(ex.Message + vbCritical)
        End Try

LPrefix = collection.ConvertAll(Function(x) x[0].ToString)

dt.Load(cmd.ExecuteReader(CommandBehavior.CloseConnection))  
LPrefix = (From row In dt.AsEnumerable()
           Select row.Field(Of String)(0)).ToList()

dt.Load(cmd.ExecuteReader(CommandBehavior.CloseConnection))  
Dim LPrefixNew As IEnumerable(Of String) = _
    From row In dt.AsEnumerable()
    Select row.Field(Of String)(0)