access 下拉列表联动

不太明白什么叫"代码在哪里输入"???

当然是用DW打开,将旧的不联动的下拉菜单换成下面的代码,这里的代码还要根据你的实际情况修改一下.

我给两个代码,一个是联动式二级下拉菜单,另一个是多级联动菜单:

1.联动式二级下拉菜单

<%

set rs=server.createobject("adodb.recordset")

sql = "select * from ProSmallClass where IsShow=True order by Descs Asc"

rs.open sql,conn,1,1

%>

<script language = "JavaScript">

var onecount

onecount=0

subcat = new Array()

<%

count = 0

do while not rs.eof

%>

subcat[<%=count%>] = new Array("<%= trim(rs("Title"))%>","<%= trim(rs("B_ID"))%>","<%= trim(rs("S_ID"))%>")

<%

count = count + 1

rs.movenext

loop

rs.close

set rs=nothing

%>

onecount=<%=count%>

function changelocation(locationid)

{

document.form1.ProSmallClass.length = 0

var locationid=locationid

var i

document.form1.ProSmallClass.options[0] = new Option('=所属小类=','')

for (i=0i <onecounti++)

{

if (subcat[i][1] == locationid)

{

document.form1.ProSmallClass.options[document.form1.ProSmallClass.length] = new Option(subcat[i][0], subcat[i][2])

}

}

}

</script>

<form name="form1" method="POST" action="?work=P_add" >

<select name="ProBigClass" size="1" id="ProBigClass" onChange="changelocation(document.form1.ProBigClass.options[document.form1.ProBigClass.selectedIndex].value)">

<%

set rs=server.createobject("adodb.recordset")

sql = "select * from ProBigClass where IsShow=True order by Descs Asc"

rs.open sql,conn,1,1

if rs.eof and rs.bof then

%>

<option value="" selected>=所属大类=</option>

<%else%>

<option value="" selected>=所属大类=</option>

<%

do while not rs.eof

%>

<option value="<%=trim(rs("B_ID"))%>"><%=trim(rs("Title"))%></option>

<%

rs.movenext

loop

end if

rs.close

set rs = nothing

%>

</select>

<select name="ProSmallClass" id="ProSmallClass">

<option selected value="">=所属小类=</option>

</select></form>

2.三级联动菜单 四级联动菜单 多级联动菜单

<%

dim cid,coid

cid = request("cid") 'cid 大类id

coid = request("coid") 'coid 中类id

set rs=server.createobject("adodb.recordset")

sql = "select * from edu_c"'表一 大类表

rs.open sql,conn,1,1

strOption1 = "<option value='' selected >==请选择所属市局==</option>"

do while not rs.eof

if cstr(rs("id")) = cstr(cid) then

strOption1 = strOption1 &"<option value='" &rs("id") &"' selected>" &rs("c_name") &"</option>"

else

strOption1 = strOption1 &"<option value='" &rs("id") &"'>" &rs("c_name") &"</option>"

end if

rs.movenext

loop

rs.close

if cid <>"" then

sql = "select * from edu_co where c_id=" &cid '表二 中类表 bid==表一中的id

rs.open sql,conn,1,1

strOption2 = "<option value='' selected >==请选择所属县局==</option>"

do while not rs.eof

if cstr(rs("id")) = cstr(coid) then

strOption2 = strOption2 &"<option value='" &rs("id") &"' selected>" &rs("co_name") &"</option>"

else

strOption2 = strOption2 &"<option value='" &rs("id") &"'>" &rs("co_name") &"</option>"

end if

rs.movenext

loop

rs.close

end if

if coid <>"" then

sql = "select * from edu_s where co_id= " &coid '表三 小类表 mid==表二的id

rs.open sql,conn,1,1

strOption3 = "<option value='' selected >==请选择学校==</option>"

while not rs.eof

if cstr(rs("id")) = cstr(sid) then

strOption3 = strOption3 &"<option value='" &rs("id") &"' selected>" &rs("s_name") &"</option>"

else

strOption3 = strOption3 &"<option value='" &rs("id") &"'>" &rs("s_name") &"</option>"

end if

rs.movenext

wend

rs.close

end if

%>

<select onchange="changeb(this.value)" name="cid"><%=strOption1%></select>

<select onchange="change(this.value)" name="coid"><%=strOption2%></select>

<select name="sid"><%=strOption3%></select>

<script language="javascript">

<!--

function changeb(cid){

location.assign("three.asp?action=s_s&cid=" + cid)

}

function change(coid){

location.assign("three.asp?action=s_s&cid=<%=cid%>&coid=" + coid)

}

-->

</script>

刚刚回复了一个类似的问题，但不是直接使用Access，而是使用Access作为后台的华创网表，利用它你这个需求很好实现的，做法如下：

1、建一个行政区划基本信息表，把表1的数据直接导进去即可；

2、再建一个表2

3、两表之间建立关联关系，使得表2录入行政区划时选择表1的数据，这样即可按行政层级逐级选，从而实现你的目标。

1、打开一个Access数据库软件，可以打开已创建好的数据库，如下图所示。

2、接着，在【数据库工具】菜单下，鼠标左键单击【Access】按钮，如下图所示。

3、然后，在【导出Access】向导窗口中，输入数据库的名称，如下图所示。

4、接着，在浏览文件窗口中，选择导出的数据库，如下图所示，点击确定。

5、最后，鼠标左键选择数据库中的表格，选择包含数据和结构，并单击【确定】按钮，这样数据库中的表格数据就导出到其他数据库中了。

---