求教下列代码错在何处？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教下列代码错在何处？

共有10647人关注过本帖树形打印复制链接主题：求教下列代码错在何处？

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：3961 威望：0 精华：0 注册：2009/4/28 7:39:00

求教下列代码错在何处？ 发帖心情

Post By：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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:111.table

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/5/4 12:02:00 [只看该作者]

此代码是放在何处的？

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：3961 威望：0 精华：0 注册：2009/4/28 7:39:00

Post By：2010/5/4 12:48:00 [只看该作者]

以下是引用yangming在2010-5-4 12:02:00的发言：
此代码是放在何处的？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:111.table

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：3961 威望：0 精华：0 注册：2009/4/28 7:39:00

Post By：2010/5/4 15:27:00 [只看该作者]

以下是引用yangming在2010-5-4 14:52:00的发言：

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

下一主题 >> << 上一主题

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