Dim d as date = e.datarow("时间")
If d.hour < 12 then
e.datarow("第一列") = "上午"
Else
e.datarow("第一列") = "下午"
End If