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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多条件勾选的问题

共有2240人关注过本帖树形打印复制链接主题：多条件勾选的问题

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1175 积分：8792 威望：0 精华：0 注册：2012/4/18 16:28:00

多条件勾选的问题 发帖心情

Post By：2016/7/21 15:02:00 [只看该作者]

请教老师，我做了个实例，想实现表A 两个条件满足的情况下对应编号的行进行勾选，第一个条件能实现，第二个条件加上存在多条件的选择，就不能实现：

例如：表A 001编号下的可研阶段行的任务完成勾选后，表B 001编号下的可研阶段完成勾选

表A 001编号下的初设阶段行的任务完成勾选后，表B 001编号下的初设阶段完成勾选

.......

我的代码放在了 AfterEdit里面请老师看看，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多条件勾选测试.zip

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/21 15:32:00 [只看该作者]

If e.Col.name = "任务完成" Then
    Dim pr As DataRow
    Dim cr As Row = e.Row
    Dim c1 As Integer = cr.Table.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 设计阶段 = '" & cr("设计阶段") & "'")
    Dim c2 As Integer = cr.Table.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 任务完成 = true and 设计阶段 = '" & cr("设计阶段") & "'")
    pr = DataTables("表B").find("项目编号 = '" & cr("项目编号") & "'")
    If pr IsNot Nothing Then
        pr(cr("设计阶段") & "完成") = (c1 = c2)
    End If
End If

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

主题：多条件勾选的问题