如何在DataGrid中的命令按钮实现弹出"是否"删除对话框按钮?

http://zhenkai.donews.net/zhenkai/posts/7199.aspx

解决方案 »

  1.   

    <%@ Page Language="vb" Debug="true" %>
    <%@ 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>
      

  2.   

    能不能给段C#代码出来!!我不懂VB
      

  3.   

            myDeleteButton.Attributes.Add("onclick", _
    "return confirm('Are you Sure you want to delete this recoders?');")
      

  4.   

    好像不有这么烦吧，选中DataGrid,右击属性生成器，出现DataGrid属性生成器对话框，选择树型中的列，添加编辑，添加，删除列。要是对效果不满意可以再转换成模板列即可。还是不满意，再选择对应的HTML中的列名，修改效果。
      

  5.   

    注意HTML 代码与JavaScript的应用呀.
      

  6.   

    private void DataGrid1_ItemCreated(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)
    {
    e.Item.Cells[ColumnIndex].Attributes.Add("onClick","return confirm('你确定要删除这一项吗？');");
    }
      

  7.   

    Private Sub DagKcsjRy_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DagKcsjRy.ItemCreated
            e.Item.Cells(8).Attributes.Add("onclick", "return confirm('确认要删除吗？');")
        End Sub
    在数据网格初始化（ItemCreated）的时候，添加上面的语句即可，我刚用VB.NET用过，爽！