您的位置：程序门 -> .net技术 -> vb.net

看看这个过程怎么往里传进参数？？dropdownlist数组附值的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

看看这个过程怎么往里传进参数？？dropdownlist数组附值的问题[已结贴,结贴人:ljd7202138]

发表于：2007-04-15 17:53:59 楼主

dropdownlist数组附值的问题
shared function filllist（byval strdest（) as dropdownlist)
dim i as integer
for i = lbound（strdest) to ubound（strdest)
strdest（i).items.add（ "ddd ")
next
end function

strdest（) 是几个dropdownlist。怎么把它传进来呀，或着是说怎么给strdest（)这个数组附值呀

发表于：2007-04-15 20:39:111楼得分:0

自己顶一个

发表于：2007-04-15 23:52:192楼得分:0

分少就不回答呀!!!可是我没分了!

发表于：2007-04-16 09:01:233楼得分:0

我在顶

发表于：2007-04-16 09:10:584楼得分:0

如果您是要给您的一些dropdownlist加入items，而这些items又很相似的话，您最好是在另一个过程中循环调用filllist这个过程，而不是考虑如何传递参数，这样会比较方便。还有就是您这么做的原因是什么？要实现什么样的功能，您把背景说明一下，我会更明白一些。

不是分少的问题，我没帮上什么忙却收了您100分，已经很不安了。

发表于：2007-04-16 11:18:205楼得分:0

items不一样，上面只是个例子,add（ "ddd ")是要从数据库中读出的！

发表于：2007-04-16 12:15:256楼得分:0

好吧，但我还是不明白这么做的原因啊。您的页面的设计和功能如果可以稍微描述一下就好了。

发表于：2007-04-16 13:15:407楼得分:10

<%@ page language= "vb " %>

<!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en " "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd ">

<script runat= "server ">
private sub filllist（byval ddls（) as dropdownlist, byval i as integer)
for j as integer = 0 to i - 1
ddls（i).items.add（ "ddd ")
next
end sub

protected sub page_load（byval sender as object, byval e as system.eventargs)
dim ddls（80) as dropdownlist
dim i as integer

' 遍历form1种的所有控件，从中找出所有的dropdownlist控件
for each ctrl as control in me.form1.controls
if （ctrl.gettype.tostring = "system.web.ui.webcontrols.dropdownlist ") then
ddls（i) = ctrl
i += 1
end if
next
'-----------------------------------------------

filllist（ddls, i)
end sub
</script>

<html xmlns= "http://www.w3.org/1999/xhtml " >
<head runat= "server ">
<title> untitled page </title>
</head>
<body>
<form id= "form1 " runat= "server ">
<div>
<asp:dropdownlist id = "dropdownlist1 " runat = "server " />
<asp:dropdownlist id = "dropdownlist2 " runat = "server " />
<asp:dropdownlist id = "dropdownlist3 " runat = "server " />
</div>
</form>
</body>
</html>

发表于：2007-04-16 13:21:548楼得分:0

<%@ page language= "vb " %>

<!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en " "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd ">

<script runat= "server ">
dim ddls（80) as dropdownlist

private sub filllist（byval ddls（) as dropdownlist)
for i as integer = lbound（ddls) to ubound（ddls) - 1
ddls（i).items.add（ "ddd ")
next
end sub

protected sub page_load（byval sender as object, byval e as system.eventargs)
dim i as integer

' 遍历form1种的所有控件，从中找出所有的dropdownlist控件
for each ctrl as control in me.form1.controls
if （ctrl.gettype.tostring = "system.web.ui.webcontrols.dropdownlist ") then
ddls（i) = ctrl
i += 1
end if
next
'-----------------------------------------------
redim preserve ddls（i)

filllist（ddls)
end sub
</script>

<html xmlns= "http://www.w3.org/1999/xhtml " >
<head runat= "server ">
<title> untitled page </title>
</head>
<body>
<form id= "form1 " runat= "server ">
<div>
<asp:dropdownlist id = "dropdownlist1 " runat = "server " />
<asp:dropdownlist id = "dropdownlist2 " runat = "server " />
<asp:dropdownlist id = "dropdownlist3 " runat = "server " />
</div>
</form>
</body>
</html>

下一篇：在.net中引用ocx的问题急急高手帮忙看看
上一篇：如何将数据库中的记录显示在textbox中

其他资讯