主题：根据系统日期生存

e.Form.Controls("Table1").Table.StateFilter = StateFilterEnum.Added

Dim d As Date = Date.Today

msgbox(d.month)

If d.Month >= 2 And d.Month <=7 Then

    e.Form.Controls("学期").text = d.Year & "年(春)"

Else If d.Month = 1 Then

    e.Form.Controls("学期").text = (d.Year-1) & "年(秋)"

Else If d.Month > 7 Then

    e.Form.Controls("学期").text = d.Year & "年(秋)"

End If