修改代码
Dim bjqc As String = e.Cookies("bjqc") Dim bjqcs As String = DataTables("成绩").sqlGetComboListString("班级全称","学段='" & xdd & "' and 考试名称 = '" & ksmc2 & "'") bjqcs = bjqcs.Replace(bjqc,"[" & bjqc & "]") .AddSelect("bjqc", "班级全称:", bjqcs).Attribute= "onchange=""setBrands('')"" " & CL