这段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)
转后的代码
[解决办法]
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)
