以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求教下列代码错在何处？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6960)
--  作者：xl
--  发布时间：2010/5/4 10:38:00
--  求教下列代码错在何处？
 

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
--  作者：yangming
--  发布时间：2010/5/4 12:02:00
--  
此代码是放在何处的？
--  作者：xl
--  发布时间：2010/5/4 12:48:00
--  
以下是引用yangming在2010-5-4 12:02:00的发言：
此代码是放在何处的？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:111.table
--  作者：yangming
--  发布时间：2010/5/4 14:52:00
--  

Dim da As Row
DataTables("表C").DeleteFor("第一列 Is Null")
For i As Integer= 0 to Tables("表C").Rows.Count-1
    da = Tables("表A").AddNew()
    da("第一列") = Tables("表C")(i,"第一列")
    da("第二列") = Tables("表C")(i,"第二列")
    da("第三列") = Tables("表C")(i,"第三列")-Tables("表B")(i,"第三列")
    da("第四列") = Tables("表C")(i,"第四列")-Tables("表B")(i,"第四列")
next
--  作者：xl
--  发布时间：2010/5/4 15:27:00
--  
以下是引用yangming在2010-5-4 14:52:00的发言：

Dim da As Row
DataTables("表C").DeleteFor("第一列 Is Null")
For i As Integer= 0 to Tables("表C").Rows.Count-1
    da = Tables("表A").AddNew()
    da("第一列") = Tables("表C")(i,"第一列")
    da("第二列") = Tables("表C")(i,"第二列")
    da("第三列") = Tables("表C")(i,"第三列")-Tables("表B")(i,"第三列")
    da("第四列") = Tables("表C")(i,"第四列")-Tables("表B")(i,"第四列")
next

谢谢杨大姐！想不到代码变化与先前想法差异这么大