标题：条件克隆行

请教

克隆“商品信息”表中--列“商品ID”为1的行

的代码怎么写

要活学活用：

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