一个页面连接数据库，然后选择添加条件使查询结果在列表中显示，选择条件
工程类型：工程类型为下拉列表包含下面几个条件：全部、发电、电网、勘测、系统、核电、变电、调度、通信、热网、监理、其它、自身基建
工程项目名称：用文本框输入
阶段名称：用文本框输入
通知单下发日期：用开始时间和结束时间约束。从
到
状态：状态为下拉列表包含下面几个条件：全部、未完工、进行、完工
确定按钮
工程类型工程项目名称阶段名称通知单下发日期状态
显示列表用这个做
<script language="vbscript">
sub Window_OnLoad
dim sTemp
<%If sWorkMode = "ASSIGN" Then%>
divlist.AddHeader "选择","5%","0","0"
<%Else%>
divlist.AddHeader "序号","5%","0","0"
<%End If%>
divlist.AddHeader "工程编号","10%","0","0"
divlist.AddHeader "工程名称","25%","0","1"
divlist.AddHeader "期数","10%","0","0"
divlist.AddHeader "是否单项","10%","0","0"
divlist.AddHeader "单项编号","10%","0","0"
divlist.AddHeader "规模","20%","0","1"
divlist.AddHeader "日期","10%","0","0"
<%for i=0 to ubound(aProjInfoList)%>
sTemp = ""
String_Add sTemp,"<%=sCharToString(ToDispValueOfCode_Project(aProjInfoList(i,4)))%>"
String_Add sTemp,"<%=sCharToString(aProjInfoList(i,9))%>"
String_Add sTemp,"<%=sCharToString(aProjInfoList(i,10))%>"
String_Add sTemp,"<%=sCharToString(ToDispValueOfIsSingle_Project(aProjInfoList(i,8)))%>"
String_Add sTemp,"<%=sCharToString(aProjInfoList(i,23))%>"
String_Add sTemp,"<%=sCharToString(aProjInfoList(i,14))%>"
String_Add sTemp,"<%=sCharToString(HoldDateOnly(aProjInfoList(i,2)))%>"
<%If sWorkMode = "ASSIGN" Then%>
divlist.AddCtrlItem sTemp,"clickProject('<%=aProjInfoList(i,6)%>')","chk","<%=aProjInfoList(i,6)%>",FALSE,false
<%Else%>
divlist.AddCtrlItem sTemp,"clickProject('<%=aProjInfoList(i,6)%>')","","",FALSE,false
<%End If%>
<%next%>
slcPurview.value = "<%=sPurview%>"
slcSWState.value = "<%=sSWState%>"
slcCanSWState.value = "<%=sCanSWState%>"
<%If sWorkMode = "SETUP" Then%>
slcPurview.style.display = "inline"
<%End If%>
divlist.show
怎么做呀，谢谢了！
这么多代码,头都大了~
你还是说主要是什么问题吧
就是输入几个条件查询，然后用列表绑出来！
下面那段代码是列表。
这么多的代码```
呜~~~
谁会呀，帮我弄一下吧！各位大大！
|
