主题：如何写代码？

"染号代号" 包括A-1, A-2, A-3,A-6 之外其他不含A开头的，统计用量除以1000如何写代码呢？谢谢

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

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

能否设一个表达式列，把代码复制进去，可以吗？还是要怎么做，谢谢。

 1、【统计用量】不能是表达式，

 

 2、你要修改代号、或统计用量，才会计算

大师不理解呀，能不再指点一下，谢谢

我直接在“统计用量”这个字段录入，但是好像没有变化。

 

1、【统计用量】不能是表达式列，

 

2、你要修改两列的数据，才会触发事件计算。代号、或统计用量