以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  .AddSelect("登记单位","登记单位*","|" & DataTables("词典").sqlGetComboListString("词典单位"))如何让该代码在页面打开时就让登记单位的值=e.Cookies("单位名称")呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165362)
--  作者：cnsjroom
--  发布时间：2021/5/15 9:52:00
--  .AddSelect("登记单位","登记单位*","|" & DataTables("词典").sqlGetComboListString("词典单位"))如何让该代码在页面打开时就让登记单位的值=e.Cookies("单位名称")呢？
With wb.AddInputGroup("form1","ipg1","基础信息")
            With.AddSelect("登记单位","登记单位*","|" & DataTables("词典").sqlGetComboListString("词典单位"))
            .Attr ibute = "oncha nge=""setAjaxO ptions(\'登记类型\',\'cidian.htm\',\'登记单位\',false)"""
        End With
        
        With .AddSelect("登记类型","登记类型*","")
            .Attrib ute = "onch ange=""setAja xOptions(\'登记项目\',\'cidian.htm\',\'登记单位\',\'登记类型\',false)"""
        End With
        With .AddSelect("登记项目","登记项目*","" )
        End With


上述代码能够正常通过选择登记单位   显示登记类型的值  选择登记类型后  能够显示登记项目的值

在实际使用场景中  为了简便用户输入  
上述红色部分代码怎么实现：登记单位的值想默认等于e.Cookies("单位名称")，如果用户要进行登记单位的选择的话 ，又可以实现对应的选择   
--  作者：有点蓝
--  发布时间：2021/5/15 10:03:00
--  

在输入框组增加一个列表输入框的语法为：

AddSelect(ID, Label, Values)

ID输入框ID。
Label在输入框左侧显示的标签内容
Values列表项目，用符号"|"隔开，例如"大专|本科|硕士|博士"。
打开网页后，默认会选择第一个值，如果要将其他位置的值作为默认值，可以将其用方括号括起来，例如"大专|[本科]|硕士|博士"，打开网页后，会自动选择本科。
a
dim s as string = "|" & DataTables("词典").sqlGetComboListString("词典单位") & "|"
s = s.replace("|" & e.Cookies("单位名称") & "|","|[" & e.Cookies("单位名称") & "]|").trimend("|")
.AddSelect("登记单位","登记单位*",s)
--  作者：cnsjroom
--  发布时间：2021/5/15 12:02:00
--  回复：（有点蓝）在输入框组增加一个列表输入框的语法...
老师继续请教一下：
上述按照老师指导的方法操作后，打开页面默认是显示了e.Cookies("单位名称")，
按照先有登记单位  再有登记类型  最后有登记项目的顺序
当前页面打开默认有了登记单位  但是对应的登记类型  无值可操作    

【1】代码实现：登记单位默认e.Cookies("单位名称")，登记类型对应的提前提取对应值
当用户不适用默认登记单位，进行了单位选择后【2】代码又要能够起作用   
有没有办法实现：下述【1】和【2】代码如何有效结合呢？

With wb.AddInputGroup("form1","ipg1","基础信息")
    Dim s As String = "|" & DataTables("词典").sqlGetComboListString("词典单位") & "|"
    s = s.replace("|" & e.Cookies("单位名称") & "|","|[" & e.Cookies("单位名称") & "]|").trimend("|")
    With.AddSelect("登记单位","登记单位*",s)
    .Attribute = "onch ange=""setA jaxOptions(\'登记类型\',\'cidian.htm\',\'登记单位\',false)"""
End With


【1】.AddSelect("登记类型","登记类型*",datatables("词典").sqlGetComboListString("词典名称"," 词典类别=\'登记类型\' and 词典单位=\'" & e.Cookies("单位名称") & "\'"))

【2】
With .AddSelect("登记类型","登记类型*","")
    .Attribute = "onch ange=""setAja xOptions(\'登记项目\',\'cidian.htm\',\'登记单位\',\'登记类型\',false)"""
End With

With .AddSelect("登记项目","登记项目*","" )
End With

End With




这个是cidian.htm代码
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim vals As String
If e.PostValues.Count = 1 Then
    vals  = "|" & datatables("词典").sqlGetComboListString("词典名称"," 词典类别=\'登记类型\' and 词典单位=\'" & e.PostValues("登记单位") & "\'")
ElseIf e.PostValues.Count = 2 Then
    Dim Filter As String = "词典类别=\'" & e.PostValues("登记类型") & "\' And 词典单位=\'" & e.PostValues("登记单位") & "\'"
    vals = "|" & datatables("词典").sqlGetComboListString("词典名称", Filter)
End If
e.WriteString(vals)
--  作者：有点蓝
--  发布时间：2021/5/15 13:35:00
--  
With .AddSelect("登记类型","登记类型*",datatables("词典").sqlGetComboListString("词典名称"," 词典类别=\'登记类型\' and 词典单位=\'" & e.Cookies("单位名称") & "\'"))
    .Attribute = "onch ange=""setAja xOptions(\'登记项目\',\'cidian.htm\',\'登记单位\',\'登记类型\',false)"""
End With
--  作者：cnsjroom
--  发布时间：2021/5/15 14:16:00
--  回复：（有点蓝）With .AddSelect("登记类型","登...
谢谢老师！