主题：关于列的问题

 代码类似

 

for each dr as datarow in datatables("表一").datarows

    dim fdr as datarow = datatables("总表").find("学号 = '" & dr("学号") & "'")

    if fdr is nothing then

        fdr = datatables("总表").AddNew

        fdr("学号") = fdr("学号")

    end if

    fdr("姓名") = dr("姓名")

    fdr("性别") = dr("性别")

    fdr("成绩") = dr("成绩")

next

 

 

for each dr as datarow in datatables("表二").datarows

    dim fdr as datarow = datatables("总表").find("学号 = '" & dr("学号") & "'")

    if fdr is nothing then

        fdr = datatables("总表").AddNew

        fdr("学号") = fdr("学号")

    end if

    fdr("姓名") = dr("姓名")

    fdr("班级") = dr("班级")

next

 

 

for each dr as datarow in datatables("表三").datarows

    dim fdr as datarow = datatables("总表").find("学号 = '" & dr("学号") & "'")

    if fdr is nothing then

        fdr = datatables("总表").AddNew

        fdr("学号") = fdr("学号")

    end if

    fdr("姓名") = dr("姓名")

    fdr("家庭住址") = dr("家庭住址")

    fdr("工作单位") = dr("工作单位")

next