- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何能查询返回后各下拉内容还存在 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125800)
-- 发布时间：2018/10/7 15:03:00
-- 如何能查询返回后各下拉内容还存在
请老师看一下，如何能查询返回后各下拉内容还存在
[此贴子已经被作者于2018/10/7 17:59:38编辑过]
-- 发布时间：2018/10/7 16:32:00
--
可以利用cookie保存上一页的值
-- 发布时间：2018/10/7 18:14:00
--
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编辑过]
-- 发布时间：2018/10/8 10:13:00
--
修改代码
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编辑过]