负值取零的写法?
If IsArray(objList(i).Amount) Then
rs("Carriage").value = IIf(IsNull(dblPrice), 0, dblPrice) * IIf(IsNull(objList(i).Amount(1)), 0, objList(i).Amount(1))
Else
rs("Carriage").value = IIf(IsNull(dblPrice), 0, dblPrice) * IIf(IsNull(objList(i).Amount), 0, objList(i).Amount)
End If
上段代码中Amount及Amount1可能为负数,我想要的处理方法是如果为负数则取值为零,请问该怎么改写?