以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  多条件勾选的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=87860)

--  作者:douglas738888
--  发布时间:2016/7/21 15:02:00
--  多条件勾选的问题
请教老师,我做了个实例,想实现  表A 两个条件满足的情况下 对应编号的行 进行勾选 ,第一个条件能实现,第二个条件加上存在多条件的选择,就不能实现:

例如:表A  001编号下的  可研阶段  行的  任务完成  勾选后,表B 001编号下的  可研阶段完成  勾选
        
        表A  001编号下的  初设阶段  行的  任务完成  勾选后,表B 001编号下的  初设阶段完成  勾选

        .......

我的代码放在了 AfterEdit里面   请老师看看,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多条件勾选测试.zip



--  作者:大红袍
--  发布时间: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