Foxtable(狐表) → 用户栏目 → 专家坐堂 → 最后一行定位


  共有4971人关注过本帖树形打印复制链接

主题：最后一行定位
帅哥哟，离线，有人找我吗？
有点灰2
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：104 积分：785 威望：0 精华：0 注册：2022/5/7 19:05:00 		最后一行定位  发帖心情 Post By：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
图片点击可在新窗口打开查看
我想实现如果现库存数量低于安全库存会有一个提醒 这样写对不对    这块不敢轻易尝试  弄不好就死循环了  还请大神帮着看一下

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：104 积分：785 威望：0 精华：0 注册：2022/5/7 19:05:00 		  发帖心情 Post By：2022/6/7 14:00:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：5739.png
图片点击可在新窗口打开查看
这个一开始我写的就是这样的   但是我这个表是做的流水账  所以只想对具体的产品最后一行才有显示   因为报警后会有进料的  

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询