老师继续请教一下：
上述按照老师指导的方法操作后，打开页面默认是显示了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)
加好友 
发短信
Post By：2021/5/15 9:52:00 [显示全部帖子]
