我一开始是这样写的,结果是每一次list.add的时候,把之前add进去的list都变成了最新的RowData的值
Dim RowData As New TORowData
Dim list As New List(Of TORowData)
For Each dr As DataRow In Table.Rows
RowData.TO_NO = HeaderData.TO_NO '转储单号
RowData.TO_WAREHOUSE = HeaderData.TO_WAREHOUSE '仓库ID
RowData.TOR_MATERIAL = dr.Item("MaterialID") '物料编号
RowData.TOR_DSTORAGETYPE = dr.Item("StorageType") '目的存储类型
RowData.TOR_DBIN = dr.Item("StorageBin") '目的库位
RowData.TOR_DQTY = dr.Item("MaterialQuantity") '目的数量
list.Add(RowData)
Next
后来把Dim RowData As New TORowData放进循环里就好了
Dim list As New List(Of TORowData)
For Each dr As DataRow In Table.Rows
Dim RowData As New TORowData
RowData.TO_NO = HeaderData.TO_NO '转储单号
RowData.TO_WAREHOUSE = HeaderData.TO_WAREHOUSE '仓库ID
RowData.TOR_MATERIAL = dr.Item("MaterialID") '物料编号
RowData.TOR_DSTORAGETYPE = dr.Item("StorageType") '目的存储类型
RowData.TOR_DBIN = dr.Item("StorageBin") '目的库位
RowData.TOR_DQTY = dr.Item("MaterialQuantity") '目的数量
list.Add(RowData)
Next