If e.Row("状态")="删除" Then
e.Style = "删除标记"
Return
End If
Dim s As String=e.Row("出入库单")
If s > "" AndAlso s.Length >= 2 AndAlso s.SubString(0,2)="CK" Then
If e.Row("数量").length > e.Row("即时库存") Then 'And e.Row("即时库存")<>0 Then
e.Style = "超库存"
End If
If s.SubString(0,2)="RK" Then
e.Style = "入库"
End If
End If