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

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

'复制表到服务类fa piao

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

    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("[税收大类] = '建筑服务'")

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

    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("[税收大类] = '运输服务'")

For Each dr1 As DataRow In DataTables("fa piao明细").Select("[税收大类] = '金融服务'")

    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("[税收大类] = '金融服务'")

For Each dr1 As DataRow In DataTables("fa piao明细").Select("[税收大类] = '保险服务'")

    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("[税收大类] = '保险服务'")

For Each dr1 As DataRow In DataTables("fa piao明细").Select("[税收大类] = '经营租赁'")

    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("[税收大类] = '经营租赁'")

For Each dr1 As DataRow In DataTables("fa piao明细").Select("[税收大类] = '物流辅助服务'")

    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("[税收大类] = '物流辅助服务

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 ('建筑服务','运输服务',..............)")