主题：[求助] 代码优化

你好，请问下以下代码可不可以还能优化一下 ？

Dim drsr As List(Of DataRow) = DataTables("库存表").Select("Qty < 0")
For Each drd As DataRow In drsr
    Dim dr2d As DataRow = DataTables("待检产品").AddNew()
  For Each dcd As DataCol In DataTables("库存表").DataCols
        dr2d(dcd.Name) = drd(dcd.name)
    Next
    drd.Delete
Next