这是C#的一个例句:
string id=((DropDownList)item.Cells[0].Controls[1]).ID;
思路是差不多的,你转为VB.net试试
string id=((DropDownList)item.Cells[0].Controls[1]).ID;
思路是差不多的,你转为VB.net试试
解决方案 »
- 一般处理程序怎样接收中文字符串
- 高分求算法!!!!我是搞不定了!!!
- 谁可以解决我的问题啊。急用 啊!谢了~~~~~~
- 我是新手,写的一个多条记录删除的删除事件
- 当Button控件的onClick事件触发时怎么先执行一段客户端的JS代码,再执行服务器端的关于onClick的函数?????
- 请需要c#全站程序和mis oa程序的网友进来看看
- 请问ASP.NET2.0中web.config配置节中的<assemblies>是干什么用的?
- Validform_v5.3.2 多个ajax提交无效
- 怎样用Server.Transfer在新的窗口中打开另一页(急)
- 问个问提,取些经,关于DataGrid的问题!
- 谁可以说一说身份证各个数位代表的意义?谁有验证身份证号码合法的程序?
- 怎么样用C#关闭一个IE的窗口啊?
http://www.csdn.net/expert/topic/761/761792.xml?temp=.7672388
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();
}
}
<%@ 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