主题：各位老大再一次请教，谢谢

 

目的一：

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

目的二：

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

目的三：

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

 

相当于再表间作出判断

 

 

谢谢

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

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

你之前不是提过同样的问题吗？

还是有问题，当删除完土地类、房屋类的表时，勾选的逻辑列不改变！！！

各位老大帮忙看看，谢谢

删除表之后，再执行一次打勾的代码即可。

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

这个项目的代码如何写？

 

帮帮忙

datatables("表名").datarow.clear() '清除表内数据,清除

目的一：

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

目的二：

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

目的三：

做好是放在项目事件中(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

没看懂