主题：条件克隆行

要活学活用：

for each dr1 as datarow in datatables("xxx").Select("条件")

     dim dr2 as datarow = datatables("xxx").Addnew

     for each dc as datacol in datables("xxx").DataCols

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

     next

next