标题：各位老大再一次请教，谢谢
目的一：
根据“土地类”、“房屋类”两张表中“项目代码”字段内部的值判断“项目”表中的项目代码是否使用，如果使用“项目代码使用情况”逻辑字段勾选，未使用则不勾选！
目的二：
根据“土地类”、“房屋类”两张表中“补偿标准代码”字段内部的值判断“补偿标准表“中的补偿标准代码是否使用，如果使用“补偿标准使用情况”逻辑字段勾选，未使用则不勾选！
目的三：
做好是放在项目事件中(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