主题：【求助专家】如何编写代码

我有3列，第1列：收发日期（日期时间型），第2列收发数量（数值型）,第3列当月入库数（数值型），第3列根据第1列日期是本月，并且第2列收发数量>0调取数据，编码有误，请指点一下：

If e.DataCol.Name = "当月入库数" Then
    If e.NewValue = Nothing Then
        e.DataRow("当月入库数") = Nothing
    Else
        e.DataRow("当月入库数") = iif( e.DataRow("收发数量") And Format(e.DataRow("收发日期"), "yyyy年MM月") = "2016-12"> 0 ,"收发数量",0)
    End If
End If

改了代码，还是没有正确，请在指点一下：

If e.DataCol.Name = "收发录入时间" Or  e.DataCol.Name = "收发数量"    Then
    If e.NewValue = Nothing Then
        e.DataRow("当月入库数") = Nothing
    Else
        e.DataRow("当月入库数") = iif( e.DataRow("收发数量") > 0 And Format(e.DataRow("收发日期"), "yyyy年MM月") = "2016年12月" ,"收发数量",0)
    End If
End If

谢谢，我没有看全，继续女里

谢谢专家，已经解决了！