以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  最后一行定位  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177851)

--  作者:有点灰2
--  发布时间:2022/6/7 12:36:00
--  最后一行定位

Select Case e.Col.Name
    Case "物料名称", "规格型号"
        Dim dr As Row = Table("辅料表").find ("[物料名称]=\'" & e.Row("物料名称") & "\'  and  [规格型号] =\'" & e.Row("规格型号") & "\',"[_SortKey] Desc"  )
        If dr.Row("安全库存") > dr.Row("库存数量") Then
        e.Style = "安全库存"
                End If
        
                End Select

 

 


图片点击可在新窗口打开查看此主题相关图片如下:411.png
图片点击可在新窗口打开查看
我想实现如果现库存数量低于安全库存会有一个提醒 这样写对不对    这块不敢轻易尝试  弄不好就死循环了  还请大神帮着看一下
--  作者:有点蓝
--  发布时间:2022/6/7 13:35:00
--  

Select Case e.Col.Name
    Case "库存数量"
        If e.Row("安全库存") > e.Row("库存数量") Then
        e.Style = "安全库存"
        End If
        
End Select


--  作者:有点灰2
--  发布时间:2022/6/7 14:00:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:5739.png
图片点击可在新窗口打开查看
这个一开始我写的就是这样的   但是我这个表是做的流水账  所以只想对具体的产品最后一行才有显示   因为报警后会有进料的  
--  作者:有点蓝
--  发布时间:2022/6/7 14:26:00
--  
Select Case e.Col.Name
    Case "库存数量"
 if e.table.compute("max(_sortkey)","规格型号=\'" & e.Row("规格型号") & "\'") = e.Row("_sortkey")
        If e.Row("安全库存") > e.Row("库存数量") Then
        e.Style = "安全库存"
        End If
 End If       
End Select