If e.PostValues.Count = 0 Then
Dim xds As List(of String) = DataTables("学校信息").GetValues("学段","单位全称= '" & e.Cookies("userdw") & "'")
With wb.AddInputGroup("form1","ipg1")
Dim xdd As String = e.Cookies("xd")
Dim xdss As String = "|" & String.Join("|",xds.ToArray)
If xdd > "" Then
xdss = xdss.Replace(xdd,"[" & xdd & "]")
End If
Dim xd1=.AddSelect("xd","选择学段:",xdss)
xd1.Attribute = "on change=""setBrands('ksmc');"" & CL ' style ='border:none;padding:0px;height:45px;width:100%;margin:10px;font-size:16px;padding-left:0px;color:blue;'"
Dim ksmc2 As String = e.Cookies("ksmc")
Dim ksmcss As String = ""
If ksmc2 > "" AndAlso xdd > "" Then
ksmcss = DataTables("成绩").sqlGetComboListString("考试名称","学段='" & xdd & "'","考试名称 desc")
ksmcss = ksmcss.Replace(ksmc2,"[" & ksmc2 & "]")
End If
Dim ksmc1=.AddSelect("ksmc", "考试名称:",ksmcss )
ksmc1.Attribute = """ & CL
.AddSelect("bjqc", "班级全称:","").Attribute= "onc hange=""setBrands('')"" " & CL
.AddSwitch("px","是否排序:",False)
.AddSwitch("zh","是否折合:",False)
End With
With wb.AddButtonGroup("form1","btg1",True)
Dim bt1= .Add("btn1", "确定", "submit")
bt1.Attribute = "style='border:1px solid black;border-radius:20px;padding:0px;width:50%'"
bt1.kind=1
End With
老师，返回时前两个的下拉是有，但第三个班级全称还是没有，还没看懂，请老师看下在哪里有问题,也就是哪个下拉有内容，返回时就让他仍然有，方便另外选择
[此贴子已经被作者于2018/10/7 18:19:19编辑过]
加好友 
发短信
Post By：2018/10/7 15:03:00 [显示全部帖子]
