主题：不同表里查找相同的行

比较正常的代码：

Dim bh As String = Tables("登记表").Current("资产编号")
Tables("登记表").Current.Delete
DataTables("固定资产盘点表").Delete("固定资产编号 = '" & bh & "'")

你的方法也可以，但是关键的错误在于：

r = Tables("固定资产盘点表").FindRow("固定资产编号 like 'bh '")

表达式不是这样合成的，建议看看：

http://www.foxtable.com/help/topics/1284.htm