下面代码为什么为循环呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下面代码为什么为循环呢？

共有1806人关注过本帖树形打印复制链接主题：下面代码为什么为循环呢？

yancheng

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

等级：四尾狐帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00

下面代码为什么为循环呢？ 发帖心情

Post By：2016/9/20 17:24:00 [只看该作者]

导入材料明细表的，当前行，事件。写入如下。

当点击导入材料.导入材料明细" 表，切换当前行时，如果 dr.IsNull("定额编码")=False 。

调试会弹出，0，1 的循环。无法退出。

If Forms("导入材料").Opened AndAlso Forms.ActiveForm.Name = "导入材料" Then

Dim dr As Row = Tables("导入材料.导入材料明细").Current

MessageBox.show(0)

If dr IsNot Nothing AndAlso dr.IsNull("定额编码")=False Then

Dim i As Integer= Tables("材料").FindRow("定额编码 = '" & dr("定额编码") & "'")

If i >= 0 Then

MessageBox.show(1)

Tables("材料").Position = i

End If

yancheng

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

等级：四尾狐帖子：842 积分：5971 威望：0 精华：0 注册：2013/6/29 9:36:00

Post By：2016/9/20 17:26:00 [只看该作者]

我把：材料_导入材料明细。的关联，单向生成表，关闭了。好像不循环了。

有点蓝

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

等级：超级版主帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/20 17:36:00 [只看该作者]

Tables("材料")是不是又定位Tables("导入材料.导入材料明细")了，这样试试