改成这样
DataTables("学生成绩等级").Find("学期 = '" & e.DataRow("学期") & "' And 班级 = '" & e.DataRow("班级") & "' ")("合格")