主题：如果右边的表格b有与表a相同的数据 如何隐藏左边表a中相同的数据

Dim names As New List(Of String)
Dim r As Row
For Each r In Tables("B").Rows
If r("商品名称")<>"" Then names.add(r("商品名称"))
Next
For Each r In Tables("A").Rows
If Names.Contains(r("商品名称"))= True Then
r.Table.Position= r.Index

如果是打开窗口后就执行，那么放在form的afterload事件中（在SQL表A生产代码后面），要是打击按钮执行的话，放在按钮的click事件中