如何能查询返回后各下拉内容还存在 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

主题：如何能查询返回后各下拉内容还存在