主题：求助 如何设置筛选 另一个表存在的值

想要在表A中添加按钮，设置条件为查找表A中设备编号 在表B设备编号里面存在且在表A出售金额为0的

Dim str As String = DataTables("表B").GetComboListString("设备编号")
str = str.Replace("|", "','")
Tables("表A").Filter = "设备编号 in ('" & str & "') and 金额 = 0"