主题：条件引用

把表A的 规格 引用到表B的 包装 行，想实现以下要求：

1.   从表A的 品类列 里筛选出内容等于 纸箱 的行，在本行的 规格列 提取内容填入到表B的 包装列里

2.   表A的 产品编号 等于表B的 产品编号列

3.   如果表B的 包装列里已有数据取消填入
 求助 ， 谢谢！

DataColChanged事件代码，
If e.DataCol.Name = "规格"
    Dim Filter As String = "[产品编号] = '" & e.DataRow("产品编号") & "'"
    Dim drs As List(Of DataRow) = DataTables("表B").Select(Filter)
    For Each dr As DataRow In drs
        Tables("表A").Filter = "品类 = '纸箱'"
        dr("包装") = e.DataRow("规格")
    Next
End If