老师您好,下面动态列表不知问题在哪?选了保险公司后,总分公司就不出来,相关代码如下,谢谢!
HttpRequest:
Case "kxyljg.htm"
Functions.Execute("kxyljg",e)
函数kxyljg:
Dim e As RequestEventArgs = args(0)
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("可选医疗机构").SQLGetComboListString("总分公司","保险公司='" & e.PostValues("保险公司") & "'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "保险公司='" & e.PostValues("保险公司") & "' And 总分公司='" & e.PostValues("总分公司") & "'"
vals = "|" & DataTables("可选医疗机构").SQLGetComboListString("医疗机构", Filter)
ElseIf e.PostValues.Count = 3 Then
Dim Filter As String = "保险公司='" & e.PostValues("保险公司") & "' And 总分公司='" & e.PostValues("总分公司") & "'and 医疗机构='" & e.PostValues("医疗机构") & "'"
vals = "|" & DataTables("可选医疗机构").SQLGetComboListString("分支机构", Filter)
End If
e.WriteString(vals)
动态列表:
With wb.AddInputGroup("form1","ipg5","体检预约")
With .AddSelect("保险公司","保险公司","|" & DataTables("可选医疗机构").SQLGetComboListString("保险公司"))
.Attribute = """
End With
With .AddSelect("总分公司","总分公司","")
.Attribute = """
End With
With .AddSelect("医疗机构","医疗机构","")
.Attribute = """
End With
With .AddSelect("分支机构","分支机构","")
.Attribute = "" '调用js函数
End With
.AddInput("开始时间","开始时间","text")
.AddInput("结束时间","结束时间","text")
.AddInput("停业日期","停业日期","text")
.AddInput("报告时效","报告时效","text")
.AddInput("体检地址","体检地址","text")
End With