主题：赋值

你好！

表A中有四列：实际库存量(表达式生成)、库存上限、库存下限、库存水平状态

通过实际库存量的变化在库存水平状态列自动填入“高库存（大于库存上限）、欠缺（小于库存下限）、正常（实际库存量介于库存上下限之间）

下面代码只能赋值高库位，其它不执行

 

 

Select Case e.DataCol.Name
    Case "实际库存量","库存上限"
        Dim dr1 As DataRow = e.DataRow
        If dr1("实际库存量") =0  Then
            dr1("库存水平状态") = "欠缺"
        Else
            Dim tp1 As Integer = dr1("实际库存量") - dr1("库存上限")
            If tp1 >  0
                dr1("库存水平状态") = "高库存"
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "实际库存量","库存下限"
        Dim dr2 As DataRow = e.DataRow
        If dr2("实际库存量") = 0  Then
            dr2("库存水平状态") = "欠缺"
        Else
            Dim tp2 As Integer = dr2("实际库存量") - dr2("库存下限")
            If tp2 <  0
                dr2("库存水平状态") = "欠缺"
            End If
        End If
End Select