以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何判断某表中逻辑列的值全是真?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40845)
--  作者：有点甜
--  发布时间：2013/10/1 23:08:00
--  

 如下例子，代码写在购买补贴的表事件里。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:关联报表测试.table

[此贴子已经被作者于2013-10-1 23:12:46编辑过]
--  作者：有点甜
--  发布时间：2013/10/2 8:53:00
--  

 不应该吧，你需要把 合同补贴发放 列改成 数据列，而不是 表达式列。
--  作者：有点甜
--  发布时间：2013/10/2 9:59:00
--  

 执行什么操作的时候出错？

 

 我测试是没有问题的，你试试压缩一下项目。

 

 http://www.foxtable.com/help/topics/0006.htm
--  作者：有点甜
--  发布时间：2013/10/2 11:21:00
--  
以下是引用slsoft在2013-10-2 11:06:00的发言：
在窗口中执行没有问题。但在系统菜单中执行有问题

 

 在系统菜单中执行？这是什么意思？
--  作者：lsy
--  发布时间：2013/10/2 14:20:00
--  
Select Case e.DataCol.Name
    Case "是否领取补贴"
        Dim fdr As DataRow = DataTables("合同").Find("合同号 = \'" & e.DataRow("合同号") & "\'")
        If fdr IsNot Nothing Then
            fdr("合同补贴发放") = False
        End If
        For Each dr As DataRow In e.DataTable.Select("合同号 = \'" & e.DataRow("合同号") & "\'")
            If dr("是否领取补贴") = False Then               
                Return
            End If
        Next
        fdr("合同补贴发放") = True
End Select