If e.DataRow("刀具状态") <> "已还刀" AndAlso e.DataRow("使用设备") Like "*ZK*" Then
Dim Filter12 As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [加工工序] = '" & e.DataRow("加工工序") & "'and [使用设备] = '" & e.DataRow("使用设备") & "' and [生产批次] = '" & e.DataRow("生产批次") & "'"'
dim dr as datarow = DataTables("计划领用刀具").SQLFind(Filter12)
if dr is nothing then 《计划领用刀具》没有对应的刀具明细
如果没有，则按刀具状态按要求显示
if e.DataRow("已排产数") <> 0 AndAlso e.DataRow("合格品") = 0 then
《计划领用刀具》的没有对应的刀具明细，并且当前窗口表中的已排产数列不等于于零和合格品列等于0，那当前窗口表中的“刀具状态” = “待配刀”
elseif e.DataRow("待加工数") = e.DataRow("计划数量")
待加工数等于计划数量，那当前窗口表中的“刀具状态” = “未加工”
endif
else 《计划领用刀具》有对应的刀具明细
if dr.isnull("加工状态") then 加工状态这一列是空值
if e.DataRow("工序状态") = "进行中" then
如果有空值，并且工序状态为进行中时，刀具状态则为进行中
elseif e.DataRow("工序状态") = "已完工" then
加工状态这列有空值，并且当前窗口表中的工序状态列为”已完工“，那当前窗口表中的“刀具状态” = “待还刀”
end if
else 加工状态这一列不是空值
加工状态这列没有空值，那当前窗口表中的“刀具状态” = “已还刀”
end if
end if
End If
加好友 
发短信
Post By：2022/2/19 17:42:00 [显示全部帖子]
