Dim t As Table = Tables("学生校牌_Table1")
e.Form.Controls("Label1").Text = t.Current("学期") & "人数: " & t.Compute("Count(午餐),"午餐 Is Not Null") & " 人"