引用结果异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

nuoyan88	小大 11楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/2/1 10:45:00 [只看该作者] 用户已被锁定

主题：引用结果异常