C＃代码转换为VB.Net（通用）

Question

DataTable dt = new DataTable(); 
    string str; 
    string[] s = Array.ConvertAll<DataRow, string>(dt.Select(), delegate(DataRow row) 
    { 
     return (string)row[""]; 
    }); 
    str = String.Join(",", s); 

Answer 1

你在寻找类似如下：

Dim dt As DataTable = New DataTable() 
    Dim str As String 
    Dim s As String() = Array.ConvertAll(Of DataRow, String)(dt.Select(), Function(row As DataRow) DirectCast(row(""), String)) 
    str = String.Join(",", s) 

在VB 8.0 (.Net 2.0)情况下，它不支持匿名方法。要解决的是，使用下面的代码：

Dim dt As DataTable = New DataTable() 
    Dim str As String 
    Dim s As String() = Array.ConvertAll(Of DataRow, String)(dt.Select(), AddressOf ConvertRowToString) 
    str = String.Join(",", s) 

ConvertRowToString功能：

Function ConvertRowToString(ByVal row As DataRow) As String 
     Return DirectCast(row(""), String) 
    End Function