2.8w+
社区成员
我想要的结果能实现吗？
比如有一个列表，旁边有2个按钮，一个是“向上移动”，一个是“向下移动”，我选中列表中的一个值，然后点击“向上移动”这个值就向上移动，反之亦然。能实现吗？给我个答复，谢谢了
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Rgbvke 2004-08-06
<script language=vbscript>
sub move()
Slen=Document.all("s1").options.length
for i=0 to slen-1
if document.all("s1").options(i).selected then
jj=i
if jj<>0 then
names=document.all("s1").options(i-1).innertext
values=document.all("s1").options(i-1).value
document.all("s1").options(i-1).innertext=document.all("s1").options(i).innertext
document.all("s1").options(i).innertext=names
document.all("s1").options(i-1).value=document.all("s1").options(i).value
document.all("s1").options(i).value=values
document.all("s1").options(i-1).selected=true
document.all("s1").options(i).selected=false
end if
end if
next
end sub
</Script>
</HEAD>
<BODY>
<select name="s1" multiple>
<option value="name1">名稱1</option>
<option value="name2">名稱2</option>
<option value="name3">名稱3</option>
<option value="name4">名稱4</option>
<option value="name5">名稱5</option>
<option value="name6">名稱6</option>
</select>
<input type=button value="MOVE ON" name="Move" onclick="move()">
這個只做了向上移動,向下移動,你可以自己完成.
sub move()
Slen=Document.all("s1").options.length
for i=0 to slen-1
if document.all("s1").options(i).selected then
jj=i
if jj<>0 then
names=document.all("s1").options(i-1).innertext
values=document.all("s1").options(i-1).value
document.all("s1").options(i-1).innertext=document.all("s1").options(i).innertext
document.all("s1").options(i).innertext=names
document.all("s1").options(i-1).value=document.all("s1").options(i).value
document.all("s1").options(i).value=values
document.all("s1").options(i-1).selected=true
document.all("s1").options(i).selected=false
end if
end if
next
end sub
</Script>
</HEAD>
<BODY>
<select name="s1" multiple>
<option value="name1">名稱1</option>
<option value="name2">名稱2</option>
<option value="name3">名稱3</option>
<option value="name4">名稱4</option>
<option value="name5">名稱5</option>
<option value="name6">名稱6</option>
</select>
<input type=button value="MOVE ON" name="Move" onclick="move()">
這個只做了向上移動,向下移動,你可以自己完成.
shanbeiwa 2004-08-06
期待中…………
lnqnwy 2004-08-06
代码应该是不很简单！很复杂了！
shanbeiwa 2004-08-06
在线等………………
shanbeiwa 2004-08-06
给段代码好吗？
-----------------------------
你们是我的希望…………
*****************************
-----------------------------
你们是我的希望…………
*****************************
life360 2004-08-06
可以哦，看你是该数据还是用javascript
skyboy0720 2004-08-06
能
中国新一代信息技术创投生态研究报告2021.pdf 根据36 氪研究院数据，2016 年至2021 年上半年，中国新一代信息技术领域北京、广东和上海获投案例数分别为5,757 起、3,860 起和3,619 起，投资金额排名前三的省市依旧为北京、上海和广东，分别为5,589.86 亿元、2,587.47亿元和2,311.09 亿元。
北京凭借优惠政策、资本集聚、人才多样等优势成为引领全国创新式发展的策源地。诸多优势叠加的北京也培育了众多科技企业，在资本集聚、企业扎堆的情况下，北京地区新一代信息技术领域企业获投数量和金额均位列第一。
广东和上海无论是投资案例数还是投资金额均不相伯仲，但发展优势各有侧重。
上海凭借资本优势扶持了众多企业发展，根据基金业协会数据，截至2021 年6 月底，上海市私募基金管理规模为4.28 万亿元，位列全国第一。
以深圳为代表的广东则凭借粤港澳大湾区地理位置优势，带动当地企业创新发展，培育出一批技术过硬、产品符合市场预期的新一代信息技术企业。
除北上广外，重庆凭借综合科技创新能力链接更多企业和资本，成为西南地区新一代信息技术领域的领军者。根据《中国区域科技创新评价报告2020》，继2018 年之后，重庆综合科技创新水平指数保持全国第7 位。
