Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "商品编码"
        If dr.IsNull("商品编码")
            dr("商品名称") = Nothing
            dr("商品型号") = Nothing
            dr("规格") = Nothing
            dr("颜色") = Nothing
            dr("销售单位") = Nothing
            dr("销售价格") = Nothing
        Else
            Dim pr As DataRow
            pr = DataTables("商品数据").Find("商品编码 = \'" & dr("商品编码") & "\'")
            If pr IsNot Nothing Then
                dr("商品名称") = pr("商品名称")
                dr("商品型号") = pr("商品型号")
                dr("规格") = pr("规格")
                dr("颜色") = pr("颜色")
                dr("销售单位") = pr("销售单位")
                dr("销售价格") = pr("销售价格")
            End If
        End If
End Select 

“商品数据”表是用目录树的形式加载的，但是，如果不是当前目录树栏目，在销售表里引用不了？也就是说pr = DataTables("商品数据").Find("商品编码 = \'" & dr("商品编码") & "\'")不筛选整个“商品数据”表，只筛选目录树显示的商品数据！是什么原因？怎么解决？