这段C#怎么转到VB.NET代码？？
data.ToList().ForEach(x =>
{

string[] array = new string[dt.Columns.Count];

array[1] = x.Key;
//从第二列开始遍历
for (int i = 2; i < dt.Columns.Count; i++)
{
// array[0] 就是 ID
if (array[0] == null)
array[0] = x.Items.ToList<DataRow>()[0]["ID"].ToString();

array[i] = (from y in x.Items
where y[2].ToString() == dt.Columns[i].ToString()
select y[3].ToString()
).SingleOrDefault();
}
dt.Rows.Add(array); //添加到table中
});

谁给加的注释？？？

http://bbs.csdn.net/topics/370024120
[解决办法]
ToList().ForEach(x => ...)
我一看这代码就有我的臭毛病。
[解决办法]
data.ToList().ForEach(Function(x)
Dim array As String() = New String(dt.Columns.Count - 1){}
array(1) = x.Key
从第二列开始遍历
For i As Integer = 2 To dt.Columns.Count - 1
' array[0] 就是 ID
If array(0) Is Nothing Then
array(0) = x.Items.ToList(Of DataRow)()(0)("ID").ToString()
End If
array(i) = (From y In x.Items Where y(2).ToString() = dt.Columns(i).ToString()y(3).ToString()).SingleOrDefault()
Next
'添加到table中dt.Rows.Add(array)
End Function)

转后的代码

[解决办法]

引用:

http://www.developerfusion.com/tools/convert/csharp-to-vb/

+1
[解决办法]
我平时使用的是这个网站转的，你可以试试http://www.developerfusion.com/tools/convert/csharp-to-vb/
[解决办法]

data.ToList().ForEach(Function(x) 

Dim array As String() = New String(dt.Columns.Count - 1) {}

array(1) = x.Key
'从第二列开始遍历
For i As Integer = 2 To dt.Columns.Count - 1
' array[0]  就是 ID
If array(0) Is Nothing Then
array(0) = x.Items.ToList(Of DataRow)()(0)("ID").ToString()
End If

array(i) = (From y In x.Items Where y(2).ToString() = dt.Columns(i).ToString()y(3).ToString()).SingleOrDefault()
Next
'添加到table中
dt.Rows.Add(array)

End Function)

[解决办法]
匿名函数vb2008可以用，这个是匿名方法，vb2010才可以用。