小问题，即时结帖！

[wplpss]

For Each row As DataRow In dt.Rows
Dim R_Data As DataRow = T_Data.NewRow
For Each col As DataColumn In dt.Columns
R_Data(col.ColumnName) = row(col.ColumnName).ToString
Next
T_Data.Rows.Add(R_Data)
Next
dt是一个5行5列的表，T_Data与dt表结构相同，为什么在执行里层循环时（正常应该5次），只执行一次就跳出了？
也就是说，只能取到dt表第一列的值。
谢谢！

[izbox]

For Each row As DataRow In dt.Rows 
          Dim R_Data As DataRow = T_Data.NewRow 
                For Each col As DataColumn In dt.Columns 
                    R_Data(col.ColumnName) = row(col.ColumnName).ToString 
                Next 
          T_Data.Rows.Add(R_Data) 
Next 

[wplpss]

谢谢一楼的把我的代码变成彩色的，谢谢参与！

[flyerwing]

学习。

[十八道胡同]

你可以调试看看dt.Columns 的值是多少？

[wplpss]

dt.Columns.count = 5

[wplpss]

For Each row As DataRow In dt.Rows
Dim R_Data As DataRow = T_Data.NewRow
For Each col As DataColumn In dt.Columns
' R_Data(col.ColumnName) = row(col.ColumnName).ToString
messagebox.show("aaa")
Next
T_Data.Rows.Add(R_Data)
Next
换成这样就是5次，再换回来，又变成一次就跳出了。

[wplpss]

sorry,其他地方错了。