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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 子表列值判断

共有1671人关注过本帖树形打印复制链接主题：子表列值判断

yupeng

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

加好友

发短信

等级：小狐帖子：350 积分：2933 威望：0 精华：0 注册：2015/4/23 19:53:00

子表列值判断 发帖心情

Post By：2017/2/12 14:09:00 [只看该作者]

老师新年好

子表，比如此子表共有3行，我要判断这3行中，"类型"列的值是否有等于 "ABC"，如果有，则执行后面的代码？请问老师要怎样写代码？

谢谢

wyz20130512

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

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/2/12 14:57:00 [只看该作者]

代码写在父表的CurrentChanged事件中

Dim r As Row = e.Table.Current

Dim drs As New List(Of DataRow) = r.DataRow.GetChildRows("子表名")

For Each dr As DataRow In drs

If dr("类型") = "ABC" Then

Exit For

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/12 15:31:00 [只看该作者]

Dim r As Row = Tables("表a").current
dim has as boolean = false
Dim drs As List(Of DataRow) = r.DataRow.GetChildRows("子表名")
For Each dr As DataRow In drs
    If dr("类型") = "ABC" Then
        has = True
        Exit For
    End If
Next
If has Then
    msgbox(1)
Else
    msgbox(2)
End If

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

主题：子表列值判断