主题：自动变更为完成

DataColChanged事件：

Select Case e.DataCol.Name
    Case "订单数","发货数量"
     if e.DataRow("发货数量") > e.DataRow("订单数") then

e.DataRow("订单状态") = "完成"

end if
End Select