下拉框赋值的问题。。。！！求解 - 编程论坛

#2

multiple19022008-07-22 16:00

“选择的”和“看到的”有什么区别？

#3

lovelq2008-07-22 16:07

哈哈~我看了半天也不知道他想实现什么？

怕很深层次问题自己理解简单了。但是一个下拉框不应该很深啊，哈哈哈

#4

dhdhzzw2008-07-22 16:11

想起来了，解决，版主封帖，谢谢。。。。

#5

multiple19022008-07-22 16:13

能不能讲讲你是怎么解决的？

#6

月夜NO风2008-07-22 16:32

我也正打算做做下拉，不知道如何办。。。。。

#7

multiple19022008-07-22 16:39

这个楼主特别喜欢自己解决了拍拍屁股走人……

#8

dhdhzzw2008-07-22 16:56

不好意思，说一下解决方法，不然版主要发彪。
下面是一个可以写入的下拉框代码，但由于数据库字段内容为中文，而现在要做英文版，又不想重新复制一个表，。所以只要把下拉框里显示的中文变成英文就可以了

<select  name="SelMType"tabindex="1"
onchange="SelMType.value=SelMTypeselect.value;SelMType.select();SelMType.focus();"                                             style="height:22px;  background:; width:235px;font-size :14px; CLIP: rect(0px 235px 26px 217px);">
                     <option   selected value=""></option>
                     <%
dim strSQL,strConn
strSQL="select MachineTypeID,TypeDesc from MachineTypeInfo where TypeDesc<>'Others'"
dim rs
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open strSQL,Conn,1,1
do while(not rs.eof)%>
                     <option value=<%=rs("TypeDesc")%>>    --这里代码有问题，    即使下面变成英文选择后还会变成中文        去掉可写入功能到可以。。。
                           <% if rs("TypeDesc")="多普达" then %>Dopod <%end if%>
        <% if rs("TypeDesc")="神达" then %>Shenda <%end if%>
        <% if rs("TypeDesc")="其它" then %>Others <%end if%>


                     </option>
                     <% rs.movenext()
loop
rs.close            %>
                   </select>

[[it] 本帖最后由 dhdhzzw 于 2008-7-22 17:06 编辑 [/it]]

#9

lele20072008-07-22 16:56

哈哈！！

版主够幽默

#10

lovelq2008-07-22 17:05

就是加了临时判断？

我想到就没敢答，哈哈哈

#11

multiple19022008-07-22 17:07

我的想法是数据库里中文名和英文名各一个字段。

#12

dhdhzzw2008-07-22 17:10

不错，版主说的方法也可以。

#13

lovelq2008-07-22 17:14

斑竹想到的我也没说

2个办法同时想到，说实话初到贵地，我就没敢多冒泡。。哈哈哈哈

#14

dhdhzzw2008-07-22 17:21

没关系，想到就讲出来，各有各的长处。。。

#15

multiple19022008-07-22 17:23

程序设计是一种非常自由的工作，因为完成一个目标的方法非常多。

#16

lovelq2008-07-22 17:27

呵呵~以后我会胆子大一点，步子快一点，

主要是怕误会LZ的思路。多交流！