将午餐人数列改成数据列
DataColChanged事件代码Select Case e.DataCol.name Case "学期","班级" e.DataRow("午餐人数") = DataTables("在籍学生信息").Compute("count(午餐)","学期 = '" & e.DataRow("学期") & "' and 班级 = '" & e.DataRow("班级") & "' And 午餐 = '√'")End Select