主题：列属性如何智能变换？

If e.DataCol.Name = "完成时间" Then

    If e.DataRow.IsNull("完成时间") = False Then

         if e.DataRow("完成时间")>=#06/16/2013# then

           e.Datarow("样品进度") = “异常”   '注意如果你用的是数据字典列表项目之类的 应该赋值为取值列

         end if

    End If

End If