这是C#的一个例句:
string id=((DropDownList)item.Cells[0].Controls[1]).ID;
思路是差不多的,你转为VB.net试试

解决方案 »

  1.   

    老兄请看这里
    http://www.csdn.net/expert/topic/761/761792.xml?temp=.7672388
      

  2.   



    foreach(System.Web.UI.Control control in DataGrid1.Items[1].Cells[0].Controls[1].Controls)
    {
      
    if(control.GetType().Name.ToString() =="DropDownList")
    {
    string id=control.ID.ToString(); 
    }
    }
      

  3.   


    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.OleDb" %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
    <title>userview</title>
    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
    <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
    <meta name="vs_defaultClientScript" content="JavaScript">
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    <script language="VB" runat="server">
    Dim startIndex As Integer
    dim RowList() as DataRow
       Sub Page_Load(Sender As Object,e As EventArgs)
    dim i,n as integer
    If Not (IsPostBack)
    Grid1.DataSource = userdb.CreateDataView()
    Grid1.DataBind()
    btnUpdate.visible = false
    btnCancel.visible = false
    end if
    n = 0
    for i=0 to Grid1.Items.Count-1
    dim chk as CheckBox
    chk = Ctype(Grid1.Items(i).FindControl("chk1"),CheckBox)
    If chk.Checked Then
    n +=1
    End If
    next
    if n then
    btnDel.attributes.add("onclick","return confirm('确定要删除吗?');")
    else
    btnDel.attributes.add("onclick","return alert('请选择要删除的项');")
    end if
       End Sub
       
       Sub Check_Clicked(sender as Object,e as Eventargs )
    dim chk(Grid1.Items.count-1) as checkbox
    dim i,j,record as integer
    record=Grid1.selectedIndex
    Grid1.SelectedIndex=-1
    for i=0 to Grid1.Items.Count-1
    chk(i) = Ctype(Grid1.Items(i).FindControl("chk1"),CheckBox)
    next
    for i=0 to Grid1.Items.Count-1
    If chk(i).Checked Then
    if i< record then
    for j=i+1 to Grid1.Items.Count-1 
    chk(j).checked=false
    next
    Grid1.selectedIndex=i
    else
    for j=0 to i-1
    chk(j).checked=false
    next
    Grid1.selectedIndex=i
    end if
    End If
    next
    End Sub
       
       Sub PagerButtonClick(sender as Object,e as Eventargs)
    Dim i,m As Integer
    Dim arg As String=Ctype(sender,LinkButton).CommandArgument
    Select Case arg
    case ("insert")
    Response.Redirect("rg_adduser.aspx")
     
    case ("del")
    Dim ConnStr As String="Provider=MSDAORA;Password=1234;User ID=wangli;Data Source=server"
    Dim myConnection as OleDbConnection=New OleDbConnection(ConnStr)
    myConnection.open()
    For i=0 To Grid1.Items.Count-1
    Dim chk As CheckBox=Ctype(Grid1.Items(i).FindControl("chk1"),CheckBox)
    If chk.Checked=true Then
    Dim Sql As String ="DELETE FROM RG_USER WHERE USERNAME='"+Grid1.Items(i).Cells(1).text+"'"
    Dim myCommand As OleDbCommand=New OleDbCommand(Sql,myConnection)
    myCommand.ExecuteNonQuery()
    Grid1.SelectedIndex=-1
    End If
    Next
    myConnection.close()
     
    case ("edit")
    Dim str as string
    dim groupname as string
    Dim n As Integer
    str=""
    For i=0 To Grid1.Items.Count-1
    Dim chk As CheckBox=Ctype(Grid1.Items(i).FindControl("chk1"),CheckBox)
    If chk.Checked=true Then
    Grid1.EditItemIndex=i
    groupname=Grid1.Items(i).Cells(2).Text
    end if
    Next
    *******************Dim ddl As DropDownList=Ctype(Grid1.Items(Grid1.EditItemIndex).Cells(2).Controls(0),DropDownList)
    Dim ddl As DropDownList=Ctype(me.Grid1.findcontrol("DropDownlist1"),DropDownList)
    if Grid1.EditItemIndex=-1 then
    str = "<script language=javascript> alert('请选择要修改的项!')<"
    str +="/script>"
    me.RegisterStartupScript("startup",str)
    else
    Dim j As Integer
    Dim ConnStr As String = "Provider=MSDAORA.1;Password=1234;User ID=wangli;Data Source=server;"
    Dim SQL As String = "select * from RG_AUTHORITY order by GPNAME"
    Dim myadapter As OleDbDataAdapter = New OleDbDataAdapter(SQL, ConnStr)
    Dim ds As DataSet = New DataSet()
    myadapter.Fill(ds, "RG_AUTHORITY")
    Dim myDataView As DataView = ds.Tables("RG_AUTHORITY").DefaultView
    RowList = myDataView.Table.Select("TBNAME='RG_BZQJB'")
    Dim GroupList(RowList.GetUpperBound(0)) As String
    For j = 0 To RowList.GetUpperBound(0)
    GroupList(j) = RowList(j)("GPNAME")
    Next
    For j=0 To RowList.GetUpperBound(0)
    if GroupList(j)=groupname then
    n=j
    Exit For
    end if
    Next
    ddl.DataSource = GroupList
    ddl.DataBind()
    ddl.SelectedIndex=n
    end if   
     
    End Select
    Grid1.DataSource=userdb.CreateDataView()
    Grid1.DataBind()
    End Sub
    </script>
    </HEAD><p align="center"><ASP:DATAGRID id="Grid1" runat="server" HorizontalAlign="Center" AllowPaging="True" PageSize="5" OnPageIndexChanged="ChangePage" PagerStyle-Mode="NumericPages" PagerStyle-HorizontalAlign="Right" BorderColor="Black" BorderWidth="1px" CellPadding="3" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" AlternatingItemStyle-BackColor="#eeeeee" Font-Names="Verdana" autogenerateColumns="False" Width="275px">
    <HeaderStyle BackColor="#AAAADD"></HeaderStyle>
    <PagerStyle Visible="False" HorizontalAlign="Right" Mode="NumericPages"></PagerStyle>
    <SelectedItemStyle BackColor="#C6D7E7"></SelectedItemStyle>
    <AlternatingItemStyle BackColor="#EEEEEE"></AlternatingItemStyle>
    <Columns>
    <asp:TemplateColumn>
    <ItemTemplate>
    <asp:CheckBox ID="chk1" runat="server" style="POSITION: center; " Width="22px" AutoPostBack="True" OnCheckedChanged="Check_Clicked" />
    </ItemTemplate>
    </asp:TemplateColumn>
    <asp:BoundColumn DataField="USERNAME" ReadOnly="True" HeaderText="用户名"></asp:BoundColumn>
    <asp:TemplateColumn HeaderText="权限组">
    <ItemTemplate>
    <asp:Label id=Label2 runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.GROUPNAME") %>'>
    </asp:Label>
    </ItemTemplate>
    <EditItemTemplate>
    <asp:DropDownList id="DropDownList1" runat="server" Width="174" Height="22"></asp:DropDownList>
    </EditItemTemplate>
    </asp:TemplateColumn>
    </Columns>
    </ASP:DATAGRID>
    </p><asp:linkbutton id="btnEdit" onclick="PagerButtonClick" runat="server" Font-Name="verdana" text="修改数据" CommandArgument="edit" ForeColor="navy" Font-size="8pt">修改数据</asp:linkbutton>全部源代码如上,请注意*****************一行,总是报错,提示未将对想引用到实例
    请各位老大帮忙,一定给分
    ================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★  浏览帖子速度极快![建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
    ★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
    ★  可以直接发贴、回复帖子★  采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录! 
    ★  支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名  ●  
         可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
    Http://www.ChinaOK.net/csdn/csdn.rar
    Http://www.ChinaOK.net/csdn/csdn