主题：求教下列代码错在何处？

 

For Each dr As Datarow In DataTables("表A").DataRows

For Each dt1 As Datarow In DataTables("表B").DataRows

For Each dt As Datarow In DataTables("表C").DataRows

    If dt IsNot Nothing Then

        dr("第一列") = dt("第一列")

        dr("第二列") = dr("第二列")

        dr("第三列") = dt("第三列")－dt1("第三列")

        dr("第四列") = dt("第四列") – dt1("第四列")

    End If

next

next

next

 

说明：表A、表B、表C结构完全相同；表A第一列与表B第一列完全相同，表A第二列与表B第二列完全相同；第三四列等于相应表C行减去相应表B行的值。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:111.table