http://zhenkai.donews.net/zhenkai/posts/7199.aspx
解决方案 »
- asp COMMON组件
- .net framework 2.0 发布的项目AJAX失效
- 【为什么设置页面过期无效果?】
- DataView控件绑定错误
- ApplicationBlocks.Data里的SqlDataReader怎么返回SqlParameter 值
- 问题:导航相关,MultiView垂直显示
- // 用HtmlTextWriter怎样生成字符串?
- 各位斑竹,大虾,sumanden、icyer、hgknight……都来看看,从去年到今年都没解决的问题(关于操作动态DataGrid绑定列,在线等待!!!)
- 如何在点击treeview中的某个节点时,取到该节点的Id
- ASP.NET 数据库连接的问题“=”附近有语法错误
- 如果防止客户端把页面另存为再向服务器Post数据?
- 问一个内联帧--iframe的问题
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %><script language="VB" runat="server">
dim MyConnection as OleDbConnection
dim cmdSelect as OleDbCommand
dim dtrReader as OleDbDataReader
Sub Page_load(sender as object,e as Eventargs)
MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\nhonline\datagrid\datagrid.mdb")
if not IsPostBack() then Mydatagrid_DataBind() 'list all
end if
End SubSub Mydatagrid_DataBind()
Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("select * from news order by id desc", MyConnection) Dim DS As DataSet = new DataSet()
MyCommand.Fill(DS, "news")
MyDataGrid.DataSource=DS.Tables("news").DefaultView
MyDataGrid.DataBind()
End Subsub Data_Del(obj as object, e as DataGridCommandEventArgs)
Dim MyCommand As OleDbCommand
Dim DeleteCmd As String = "DELETE from news where id = @Id" MyCommand = New OleDbCommand(DeleteCmd, MyConnection)
MyCommand.Parameters.Add(New OleDbParameter("@Id", OleDbType.VarChar, 11))
MyCommand.Parameters("@Id").Value = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))
MyCommand.Connection.Open()
MyCommand.ExecuteNonQuery()
MyCommand.Connection.Close() Mydatagrid_DataBind()
End sub Sub DataGrid_ItemCreated(Sender As Object, e As DataGridItemEventArgs) Select Case e.Item.ItemType
Case ListItemType.Item, ListItemType.AlternatingItem, ListItemType.EditItem
Dim myTableCell As TableCell
myTableCell = e.Item.Cells(0)
Dim myDeleteButton As LinkButton
myDeleteButton = myTableCell.Controls(0)
myDeleteButton.Attributes.Add("onclick", _
"return confirm('Are you Sure you want to delete this recoders?');")
End Select
End Sub
</script>
<html>
<head>
<title>DropDownList.aspx</title>
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body>
<form Runat="server">
<ASP:DataGrid id="MyDataGrid" runat="server"
Width="100"
BackColor="#ccccff"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
AutoGenerateColumns="true"
AllowPaging="false"
pageSize="2"
DataKeyField="id"
OnDeleteCommand="Data_Del"
OnItemCreated="DataGrid_ItemCreated"
>
<Columns>
<asp:ButtonColumn HeaderText="" text="Del" CommandName="Delete"/>
</Columns>
</asp:DataGrid>
</form>
</body>
</html>
"return confirm('Are you Sure you want to delete this recoders?');")
{
e.Item.Cells[ColumnIndex].Attributes.Add("onClick","return confirm('你确定要删除这一项吗?');");
}
e.Item.Cells(8).Attributes.Add("onclick", "return confirm('确认要删除吗?');")
End Sub
在数据网格初始化(ItemCreated)的时候,添加上面的语句即可,我刚用VB.NET用过,爽!