- 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)
-- 发布时间：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 |
-- 发布时间：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
e.Style = "安全库存"
End If
End If
End Select