If e.DataCol.name= "实际入库数量" OrElse e.DataCol.name= "数量" Then If e.NewValue = Nothing OrElse e.NewValue = 0 Then e.DataRow("长短款") = Nothing Else If e.DataRow("实际入库数量")<e.DataRow("数量") Then e.DataRow("长短款")= "短款" Else If e.DataRow("实际入库数量")>e.DataRow("数量") Then e.DataRow("长短款")= "长款" End If End If End If