主题：条件引用

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

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