以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  引用结果异常  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113785)
--  作者：有点甜
--  发布时间：2018/1/23 9:53:00
--  

代码没问题，请加入msgbox弹出各个值，看是否正确。

 

如果数据也不正确，说明你数据库数据有问题。
--  作者：有点甜
--  发布时间：2018/1/23 10:03:00
--  
以下是引用nuoyan88在2018/1/23 9:56:00的发言：
老师，图片1图片2是我的查询结果，图3是显示结果

 

没问题啊。成品编码、加工工序 得到的数据有那么多行，随便取哪一行都正确啊。

 

在多行数据里面，你要取哪一行数据？逻辑是什么？
--  作者：有点甜
--  发布时间：2018/1/23 10:05:00
--  
以下是引用有点甜在2018/1/23 10:03:00的发言：

 

没问题啊。成品编码、加工工序 得到的数据有那么多行，随便取哪一行都正确啊。

 

在多行数据里面，你要取哪一行数据？逻辑是什么？
--  作者：有点甜
--  发布时间：2018/1/23 11:39:00
--  

那你条件就这样写

 

filter = "成品编码= \'" & dr("成品编码") & "\' And 加工工序 = \'" & dr("加工工序") & "\' and  生产批次号 = \'" & dr("生产批次号") & "\'"
--  作者：有点甜
--  发布时间：2018/2/1 11:15:00
--  
Select Case e.DataCol.Name
    Case "成品编码","加工工序","生产批次"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("成品编码") OrElse dr.IsNull("加工工序")Then
            dr("加工内容") = Nothing
            dr("循环时间") = Nothing
        Else
            Dim filter As String
            filter = "成品编码= \'" & dr("成品编码") & "\' And 加工工序 = \'" & dr("加工工序") & "\' and 生产批次 = \'" & dr("生产批次") & "\'"
            pr = DataTables("生产排产表").SQLFind(filter)
            If pr IsNot Nothing Then
                dr("加工内容") = pr("加工内容")
                dr("循环时间") = pr("循环时间")
            End If
        End If
End Select