- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 动态列表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143950)
-- 发布时间：2019/12/6 21:49:00
-- 动态列表
老师您好，下面动态列表不知问题在哪？选了保险公司后，总分公司就不出来，相关代码如下，谢谢！
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
-- 发布时间：2019/12/6 22:27:00
--
动态列表：的完整代码和js文件代码放到txt发上来
-- 发布时间：2019/12/7 9:27:00
--
老师您好，完整代码见附件。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
-- 发布时间：2019/12/7 10:00:00
--
没看到txt里面有1楼【动态列表：】那几段代码呀！
-- 发布时间：2019/12/7 11:42:00
--
老师您好，1楼代码为补上为ipg6（体检预约），主要为检查动态列表功能。我实际是希望在ipg1体检预约里实现医疗机构的动态选择，保险公司-总分公司根据
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:新建文本文档.txt |
体检卡号自动带出。谢谢！
-- 发布时间：2019/12/7 13:49:00
--
ID重复，前面已经有一个文本框叫做"保险公司"了
With .AddInput("保险公司","保险公司","text")
.Value = dr("保险公司")
.readonly = True
End With
-- 发布时间：2019/12/7 19:44:00
--
老师您好，去掉重复ID后可以动态列表选择了。如何实现把通过体检卡号（用户名）带出来的”保险公司”、”总分公司”的值传入到“可选医疗机构”动态列表中的医疗机构选择呢？下面代码如何修改呢？谢谢
With .AddSelect("医疗机构","医疗机构","|" & DataTables("可选医疗机构").SQLGetComboListString("医疗机构","保险公司=\'" & e.PostValues("保险公司") & "\' And 总分公司=\'" & e.PostValues("总分公司") & "\'"))
.Attribute = """
End With
-- 发布时间：2019/12/8 20:47:00
--
Dim dr As DataRow = DataTables("体检卡号").SQLfind("体检卡号 = \'" & e.Cookies("username") & "\'")
……
If dr IsNot Nothing Then
With .AddSelect("医疗机构","医疗机构","|" & DataTables("可选医疗机构").SQLGetComboListString("医疗机构","保险公司=\'" & dr("保险公司") & "\' And 总分公司=\'" & dr("总分公司") & "\'"))
.Attribute = """
End With
-- 发布时间：2019/12/8 21:09:00
--
谢谢老师！