以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122481)

--  作者:dzz9826
--  发布时间:2018/7/26 15:04:00
--  跨表判断
老师,您好,我想在一个表里判断这个条码的商品是否在指定的供应商表里存在,如果有就在是否有商品处打勾,如果单价不一样,在价格变更处打勾。如何写?
谢谢!上传例子中,第一步实现,第二步不行,请老师指点,谢谢

--  作者:dzz9826
--  发布时间:2018/7/26 15:06:00
--  
没传上?


--  作者:dzz9826
--  发布时间:2018/7/26 15:14:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:有点甜
--  发布时间:2018/7/26 15:37:00
--  
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

--  作者:dzz9826
--  发布时间:2018/7/26 15:45:00
--  
谢谢老师,看来我的逻辑出问题了。