！！救急，如何用两个数据源绑定一个DropDownList？？？？？？？？？

Question

我只是在想，还没有做，在asp中是下面这样写的，想做成.net的，应该怎么做呢？
<option value=list.asp>---===程序首页===---</option>
<%
Set rssmall = Server.CreateObject("ADODB.Recordset")
sqlsmall="SELECT * FROM sort"
rssmall.OPEN sqlsmall, Conn,1,1
do while not rssmall.eof
dimg=rssmall("sort")
%>
            <option value="index.asp">----<%=rssmall("sort")%>----</option>
            <%
rssmall.movenext
Set rz = Server.CreateObject("ADODB.Recordset")
sqz="SELECT * FROM small where sortid='"&dimg&"'"
rz.OPEN sqz, Conn,1,1
do while not rz.eof
%>
            <option value='index.asp?type=<%=rz("id")%>'><%=rz("small")%></option>
            <%
rz.movenext
loop
rz.close
set rz=nothing
loop
rssmall.close
set rssmall=nothing
%>
          </select>

Answer 1

只要把大类的DropListBox 设置成AllowPostBack=true.就可以了。

Answer 2

建一个DataSet
用你上面的循环同样将数据查出
这种语句
<option value="index.asp">----<%=rssmall("sort")%>----</option>
换成向数据源做插入操作
数据源包括两字段一个是value一个是text
然后再绑定到DataList

Answer 3

方法一：
    根据datarelation可以帮定，这种方法有很多例子
方法二：
    往dropdownlist直接添加记录dropdownlist1.items.add("大类中的一个记录")再添加dropdownlist1.items.add("         " & "小类中与前一帮定的大类相关的记录")；另外你也可以用此方法先把记录集添加到arraylist集合，再帮定

Answer 4

楼上的第二种方法可以实现，但达到我说的要求会很麻烦
当dropdownlist改变时，页面中的数据源要重新绑定datarelation是什么方法，我没有听过，能给讲一下，或指个方向连接，我看看吗？我试试，如果成功了，楼上的都给分^_^

Answer 5

这样做：
用一个SQL语句，关联大类表和小类表，取出所有的小类。
Select Cat.CatName, SubCat.SubCatName, SubCat.SubCatID, SubCat.CatID from SubCat inner join Cat on SubCat.CatID = Cat.CatID
Order By CatID在结果集（如 DataReader〕中循环。使用一个 StringBuilder来构造输出的 <Option>列表.每当CatID改变时，输入一个大类的Option.总的说来跟在ASP中很相似。

Answer 6

我这里有例子可惜太长，你自己到www.asp.net网站上去找吧，我记不太清网址了，就算找不到也没关系，因为它是一个非常好的网站

Answer 7

用sql语句。或是用两个dataset
先把第一个dataset的记录
for i=0 to dataset1.count-1
insert(i,字段名)
再写入第二个dataset的记录
for i=(dataset1.count-1) to dataset2.count-1
insert(i,字段名)
试试。具体的你自已写

Answer 8

Private Sub CreateRelation()
    ' Get the DataColumn objects from two DataTable objects in a DataSet.
    Dim parentCols() As DataColumn
    Dim childCols() As DataColumn
    ' Code to get the DataSet not shown here.
    parentCols(0) = DataSet1.Tables("Customers").Columns("CustID")
    parentCols(1) = DataSet1.Tables("Customers").Columns("OrdID")
 
    childCols(0) = DataSet1.Tables("Orders").Columns("CustID")
    childCols(1) = DataSet1.Tables("Orders").Columns("OrdID")
 
    Dim bConstraints As Boolean
    bConstraints = True
    ' Create DataRelation.
    Dim CustOrderRel As DataRelation
    CustOrderRel = New DataRelation("CustomersOrders", parentCols, childCols, bConstraints)
    ' Add the relation to the DataSet.
    DataSet1.Relations.Add(CustOrderRel)
 End Sub给出一段代码,希望有所帮助!

Answer 9

谁知道dim List as new Db()中的DB()是什么啊？ private sub JumpToBoard()
dim Sql as string
dim Sql1 as string
JumpBoard.Items.Clear()
JumpBoard.Items.Add(new ListItem("跳转论坛",""))
dim List as new Db()
Sql="select Forum_Class_Id,Forum_Class_Name from Forum_Class where Forum_Class_Name<>'' " & _
"and Forum_Class_Name is not null and isdel='0' order by Forum_Class_Id"
dim JumpClass as SqlDataReader 
JumpClass=List.GetList(Sql)
            '添加类别
while JumpClass.Read()
JumpBoard.Items.Add(new ListItem("┬" & JumpClass.GetValue(1).ToString(),""))
Sql1="select Forum_Board_Id,Forum_Board_Name from Forum_Board where Forum_Class_Id=" & _
JumpClass.GetValue(0).ToString() & " and isdel='0' order by Forum_Board_Id"
dim JumpValue as SqlDataReader 
JumpValue=List.GetList(Sql1)
            '添加版面
while JumpValue.Read()
JumpBoard.Items.Add(new ListItem("├" & JumpValue.GetValue(1).ToString(),JumpValue.GetValue(0).ToString()))
end while
JumpValue.Close()
end while
JumpClass.Close()
end sub