sqlstr=“Select专业，Max(成绩)As最高分From学生表，成绩表Where学生表.学号=成绩表.学号and课程=’”&TextBox.Text&“’Groupby专业”