If e.DataCol.Name = "日期" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
Dim rq As Date = e.DataRow(e.DataCol)
If Format(rq,"MM-dd") >= "02-15" AndAlso Format(rq,"MM-dd") <= "07-10" Then
e.DataRow("学期") = rq.Year & "年(春)"
ElseIf Format(rq,"MM-dd") >= "07-16" OrElse Format(rq,"MM-dd") <= "02-14" Then
e.DataRow("学期") = rq.Year & "年(秋)"
End If
End If
[此贴子已经被作者于2014-5-7 20:45:44编辑过]
加好友 
发短信
Post By：2014/5/7 20:45:00 [显示全部帖子]
