E '" + ComboY.Text + "%' And c.ChangeType=" _
            + Trim(ComboType.ListIndex) + " And c.Student_Id=s.Student_Id"
        Case 2  '转学
          Adodc1.RecordSource = "SELECT c.ChangeId  As 编号, c.ChangeDate As 日期," _
            + " s.Student_Id as 学生编号, s.Student_Name as 学生, c.NewSchool As 转入," _
            + " c.Reason As 具体原因, c.Memo As 备注信息 FROM Students s, Change c" _
            + " WHERE c.ChangeDate LIKE '" + ComboY.Text + "%' And c.ChangeType=" _
            + Trim(ComboType.ListIndex) + " And c.Student_Id=s.Student_Id"
        Case 3  '调班
          Adodc1.RecordSource = "SELECT c.ChangeId  As 编号, c.ChangeDate As 日期," _[br