主题：跨表判断

老师，您好，我想在一个表里判断这个条码的商品是否在指定的供应商表里存在，如果有就在是否有商品处打勾，如果单价不一样，在价格变更处打勾。如何写？

没传上？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

Select Case e.DataCol.Name
    Case "条码", "供应商", "单价"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        Dim filter As String
        filter = "供应商 = '" & dr("供应商") & "' And 条码 = '" & dr("条码") & "'"
        pr = DataTables("供应商").Find(filter)
        If pr IsNot Nothing Then
            dr("是否有商品") = True
            If pr("单价") <> dr("单价") Then
                dr("价格变更") = True
            Else
                dr("价格变更") = False
            End If
        Else
            dr("是否有商品") = False
        End If
       
End Select

谢谢老师，看来我的逻辑出问题了。