数据筛查 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据筛查

共有3078人关注过本帖树形打印复制链接主题：数据筛查

rgbjwjb

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

等级：三尾狐帖子：653 积分：6635 威望：0 精华：0 注册：2016/12/27 21:05:00

数据筛查

Post By：2020/5/15 17:51:00 [只看该作者]

“表A” ：有“账号”和“是否一折通号码”两个字段

“表B”：有“一折通号”一个字段

我想实现：如果表A 中的“账号”能从表B的“一折通通号”中找到，则就将表A 中的“是否一折通号码”设置为“是”，否则设为“否”，请问代码如何实现，谢谢指教！

rgbjwjb

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

等级：三尾狐帖子：653 积分：6635 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2020/5/15 21:43:00 [只看该作者]

For Each r As Row In Tables("表A").Rows

For i As Integer = 0 To Tables("表B").Rows.Count-1

Dim nr As Row = Table("表B").current

If r("账号") = nr("一折通号") Then

r("是否一折通号码") = True

Else

r("是否一折通号码") = False

End If

代码问题出在哪里？

sloyy

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

等级：九尾狐帖子：2193 积分：13926 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2020/5/16 1:42:00 [只看该作者]

逻辑关系混乱 ,如果表A 中的“账号”能从表B的“一折通通号”中找到，则就将表A 中的“是否一折通号码”设置为“是”，否则设为“否”

你用2个循环是什么意思?直接查找不就行了

For Each r As Row In Tables("表A").Rows

Dim dr As DataRow
dr = DataTables("表B").Find("账号='" & r("账号") & "'")
If dr IsNot Nothing Then '如果找到的话

r("是否一折通号码") = True

Else

r("是否一折通号码") = False

End If

[此贴子已经被作者于2020/5/16 1:42:22编辑过]

主题：数据筛查