修改代码
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
[此贴子已经被作者于2018/10/8 10:13:37编辑过]