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

Dim nms() As String = Tables("补偿标准表").Current("补偿标准代码")

Dim s() As String = Tables("土地类").Current("补偿标准代码")

Dim v() As String = Tables("房屋类").Current("补偿标准代码")

 For Each nm As String In nms

然后用nm去遍历数组S和V，当s和v当中任意一个数组有nm时，补偿标准表中“补偿标准使用情况”逻辑字段勾选