主题：关于克隆行

For dr1 As DataRow in DataTables("xxxx").Select("条件")

     Dim dr2 as datarow = DataTables("xxxx").AddNew()

     For Each dc As DataCol in DataTables("xxxx").DataCols

           dr2(dc.name) = dr1(dc.name)

     next

next