把表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

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

if dr.isnull("包装") then
dr("包装") = e.DataRow("规格")

end if
Next
End If

end if

楼主：看看这个行不行，没有文件，没法测试

问题已解决

谢谢！