目的一：

根据“土地类”、“房屋类”两张表中“项目代码”字段内部的值判断“项目”表中的项目代码是否使用，如果使用“项目代码使用情况”逻辑字段勾选，未使用则不勾选！

目的二：

根据“土地类”、“房屋类”两张表中“补偿标准代码”字段内部的值判断“补偿标准表“中的补偿标准代码是否使用，如果使用“补偿标准使用情况”逻辑字段勾选，未使用则不勾选！

目的三：

做好是放在项目事件中(CurrentTableChanged/BeforeCloseProject)，当用户做操作时，随时都能判断!!

相当于再表间作出判断

谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表间判断.table

不好意思，不是删除表，而是清空表内数据

这个项目的代码如何写？

帮帮忙

目的一：

根据“土地类”、“房屋类”两张表中“项目代码”字段内部的值判断“项目”表中的项目代码是否使用，如果使用“项目代码使用情况”逻辑字段勾选，未使用则不勾选！

目的二：

根据“土地类”、“房屋类”两张表中“补偿标准代码”字段内部的值判断“补偿标准表“中的补偿标准代码是否使用，如果使用“补偿标准使用情况”逻辑字段勾选，未使用则不勾选！

目的三：

做好是放在项目事件中(CurrentTableChanged/BeforeCloseProject)，当用户做操作时，随时都能判断!!

相当于再表间作出判断

谢谢

自己改写一下我之前给你的代码，放在CurrentTableChanged事件中：

For Each dr As DataRow In DataTables("补偿标准表").dataRows
    Dim nms() As String = {"土地补偿","房屋补偿"}
    For Each nm As String In nms
        For Each c As col  In Tables(nm).cols
            If c.name.StartsWith(dr("补偿物名")) Then
                dr("使用情况")  = True
                Exit For
            End If
        Next
        If dr("使用情况")  = True Then
            Exit For
        End If
    Next
Next