.AddSelect("登记单位","登记单位*","|" & DataTables("词典").sqlGetComboListString("词典单位"))如何让该代码在页面打开时就让登记单位的值=e.Cookies("单位名称")呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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("单位名称")，如果用户要进行登记单位的选择的话，又可以实现对应的选择

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

AddSelect(ID, Label, Values)

ID	输入框ID。
Label	在输入框左侧显示的标签内容
Values	列表项目，用符号"\|"隔开，例如"大专\|本科\|硕士\|博士"。打开网页后，默认会选择第一个值，如果要将其他位置的值作为默认值，可以将其用方括号括起来，例如"大专\|[本科]\|硕士\|博士"，打开网页后，会自动选择本科。

dim s as string = "|" & DataTables("词典").sqlGetComboListString("词典单位") & "|"

.AddSelect("登记单位","登记单位*",s)

老师继续请教一下：

上述按照老师指导的方法操作后，打开页面默认是显示了e.Cookies("单位名称")，

按照先有登记单位再有登记类型最后有登记项目的顺序

当前页面打开默认有了登记单位但是对应的登记类型无值可操作

【1】代码实现：登记单位默认e.Cookies("单位名称")，登记类型对应的提前提取对应值

当用户不适用默认登记单位，进行了单位选择后【2】代码又要能够起作用

有没有办法实现：下述【1】和【2】代码如何有效结合呢？

With wb.AddInputGroup("form1","ipg1","基础信息")

Dim s As String = "|" & DataTables("词典").sqlGetComboListString("词典单位") & "|"

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

这个是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)

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

.Attribute = "onch ange=""setAja xOptions('登记项目','cidian.htm','登记单位','登记类型',false)"""

End With

主题：.AddSelect("登记单位","登记单位*","|" & DataTables("词典").sqlGetComboListString("词典单位"))如何让该代码在页面打开时就让登记单位的值=e.Cookies("单位名称")呢？