- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何写代码？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54723)
-- 发布时间：2014/8/3 16:06:00
-- 如何写代码？
"染号代号" 包括A-1, A-2, A-3,A-6 之外其他不含A开头的，统计用量除以1000如何写代码呢？谢谢
-- 发布时间：2014/8/3 16:11:00
--
If e.datarow("染料代号") = "A-1" OrElse e.datarow("染料代号") = "A-2" OrElse e.datarow("染料代号") = "A-3" Orelse e.datarow("染料代号") = "A-6" Orelse e.datarow("染料代号") like "A*" = False then
-- 发布时间：2014/8/3 17:32:00
--
Select Case e.DataCol.Name
Case "盘点数","料仓","月末库存"
e.DataRow("月末库存") = e.DataRow("盘点数") + e.DataRow("料仓")
Case "月末库存","库存差额","本月出库数量"
e.DataRow("库存差额") = e.DataRow("本月出库数量") - e.DataRow("月末库存")
Case "本月出库数量","上月库存","本月入库数量","新厂借用数量","月末库存"
e.DataRow("本月出库数量") = e.DataRow("上月库存") + e.DataRow("本月入库数量") - e.DataRow("新厂借用数量") - e.DataRow("月末库存")
Case "染料代号","统计用量"
If e.DataRow("染料代号") = "A-1" OrElse e.DataRow("染料代号") = "A-2" OrElse e.DataRow("染料代号") = "A-3" OrElse e.DataRow("染料代号") = "A-6" OrElse e.DataRow("染料代号") Like "A*" = False Then
e.DataRow("统计用量") = e.DataRow("统计用量")/1000
End If
End Select
Tables("盘点表").Filter = ""
录入数据后没有反映。
此主题相关图片如下：qq图片20140703173042.jpg
能否设一个表达式列，把代码复制进去，可以吗？还是要怎么做，谢谢。
-- 发布时间：2014/8/3 17:35:00
--
1、【统计用量】不能是表达式，
2、你要修改代号、或统计用量，才会计算
-- 发布时间：2014/8/3 17:40:00
--
大师不理解呀，能不再指点一下，谢谢
-- 发布时间：2014/8/3 17:42:00
--
我直接在“统计用量”这个字段录入，但是好像没有变化。
-- 发布时间：2014/8/3 17:42:00
--
大师不理解呀，能不再指点一下，谢谢
1、【统计用量】不能是表达式列，
2、你要修改两列的数据，才会触发事件计算。代号、或统计用量