以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教老师多次利用手工编码填充数据代码能简化吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180154)
--  作者：13315253800
--  发布时间：2022/9/30 17:46:00
--  请教老师多次利用手工编码填充数据代码能简化吗？

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

\'复制表到服务类发票

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

    Dim dr2 As DataRow = DataTables("服务类发票").AddNew()

    For Each dc As DataCol In DataTables("发票明细").DataCols

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

    Next

Next

\'删除建筑服务

DataTables("发票明细").DeleteFor("[税收大类] = \'建筑服务\'")

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

    Dim dr2 As DataRow = DataTables("服务类发票").AddNew()

    For Each dc As DataCol In DataTables("发票明细").DataCols

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

    Next

Next

\'删除运输服务

DataTables("发票明细").DeleteFor("[税收大类] = \'运输服务\'")

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

    Dim dr2 As DataRow = DataTables("服务类发票").AddNew()

    For Each dc As DataCol In DataTables("发票明细").DataCols

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

    Next

Next

\'删除金融服务

DataTables("发票明细").DeleteFor("[税收大类] = \'金融服务\'")

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

    Dim dr2 As DataRow = DataTables("服务类发票").AddNew()

    For Each dc As DataCol In DataTables("发票明细").DataCols

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

    Next

Next

\'删除保险服务

DataTables("发票明细").DeleteFor("[税收大类] = \'保险服务\'")

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

    Dim dr2 As DataRow = DataTables("服务类发票").AddNew()

    For Each dc As DataCol In DataTables("发票明细").DataCols

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

    Next

Next

\'删除经营租赁

DataTables("发票明细").DeleteFor("[税收大类] = \'经营租赁\'")

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

    Dim dr2 As DataRow = DataTables("服务类发票").AddNew()

    For Each dc As DataCol In DataTables("发票明细").DataCols

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

    Next

Next

\'最后删除物流辅助服务

DataTables("发票明细").DeleteFor("[税收大类] = \'物流辅助服务
--  作者：有点蓝
--  发布时间：2022/10/4 8:30:00
--  

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