主题：请教老师多次利用手工编码填充数据代码能简化吗？

For Each dr1 As DataRow In DataTables("fa piao明细").Select("[税收大类] in ('建筑服务','运输服务',..............)")

    Dim dr2 As DataRow = DataTables("服务类fa piao").AddNew()

    For Each dc As DataCol In DataTables("fa piao明细").DataCols

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

    Next

Next

DataTables("fa piao明细").DeleteFor("[税收大类]  in ('建筑服务','运输服务',..............)")