请问大家都是如何做----“确认删除”----的啊？？？？在线给分~~谢谢拉~~

[lions911]

在删除之前，让用户确认是否删除。我的代码：

Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand



Response.Write("<script language='javascript'>if(confirm('是否确认此操作?')==true)this.location.href='usermanage.aspx?a=1';else ;</script>")

If Request.QueryString("a") = 1 Then
Dim id As Integer
Dim strsql As String
id = DataGrid1.DataKeys(e.Item.ItemIndex)
strsql = "DELETE FROM usertable where user_id=@id"
SqlConnection1.Open()
Dim cmdsql As SqlCommand = New SqlCommand(strsql, SqlConnection1)
cmdsql.Parameters.Add("@id", id)
cmdsql.ExecuteNonQuery()
SqlConnection1.Close()
DataGrid1.EditItemIndex = -1
binddatagrid()
End If
End Sub
--------------------------------------------------------------------

我的代码有问题，就是第一条没法删除，以后的才能删除，请问大家有什么好办法啊？？？

[Mirricle]

.attribute.add("onclick","return confirm();")

[Mirricle]

在产生DeleteCommand的哪个控件上添加

[Eddie005]

在DataGrid1_DeleteCommand里已经阻止不了，要在ItemDataBound事件中处理

Private Sub DataGrid1_ItemDataBound(...) Handles DataGrid1.ItemDataBound
if e.Item.ItemIndex>-1 then
dim lbtn as LinkButton = e.Item.Cells(n).Controls(0)'其中n是按钮列的列好
'dim btn as Button = e.Item.Cells(n).Controls(0)'如果用的是pushButton则用这个
lbtn.Attributes.Add("onclick","return confirm('是否确认此操作?');")
end if
end sub

[chengbo1983]

DataGrid中添加删除确认对话框
在DataGrid的使用中，经常需要为删除按纽添加确认对话框，根据我的学习经验，总结了三种方法，原理都是在客户端为删除按纽添加脚本代码来实现删除前弹出确认对话框。
方法一：
当为DataGrid控件添加删除按纽后，为DataGrid控件添加ItemDataBound事件处理程序，代码如下：
//添加删除确认对话框。
switch(e.Item.ItemType)
{
case ListItemType.Item:
case ListItemType.EditItem:
case ListItemType.AlternatingItem:
((LinkButton)e.Item.Cells[4].Controls[0]).Attributes.Add("onclick","return confirm('你真的要删除第"+(e.Item.ItemIndex+1).ToString()+"行吗？');");
break;
}
其中，e.Item.Cells[4]说明你添加的删除按纽在DataGrid控件中位于第五列，列号从0开始。
方法二：使用模板列
1.为DataGrid添加一个模板列，名为“自定义删除”，在这个模板列中添加一个按纽，将按纽的CommandName属性设为UserDelete；
2.为DataGrid添加ItemCreated事件，添加客户端脚本程序，代码如下：
switch(e.Item.ItemType)
{
case ListItemType.Item:
case ListItemType.EditItem:
case ListItemType.AlternatingItem:
Button myDelButton = (Button)e.Item.FindControl("btnDelete");
myDelButton.Attributes.Add("onclick","return confirm('你真的要删除第"+(e.Item.ItemIndex+1).ToString()+"行吗？');");
break;
}
3.为DataGrid添加ItemCommand事件，处理删除事件，代码如下：
if(e.CommandName == "UserDelete")
{
　　//执行删除。
}
方法三：
这种方法很少见到人用，但却是最简单的方法，方法如下：
将DataGrid的删除按纽的文本属性设为如下代码：
<div id=d onclick="JavaScript:return confirm('你真的要删除这一行吗？');">删除</div>


http://stewen.cnblogs.com/archive/2005/12/19/300468.html

[lazyfish]

Private Sub DataGrid1_ItemDataBound(...) Handles DataGrid1.ItemDataBound
if e.Item.ItemIndex>-1 then
dim lbtn as LinkButton = e.Item.Cells(n).Controls(0)'其中n是按钮列的列好
'dim btn as Button = e.Item.Cells(n).Controls(0)'如果用的是pushButton则用这个
lbtn.Attributes.Add("onclick","if(confirm('是否确认此操作?'))")
end if
end sub

[ilovejolly]

good

[lions911]

我的前台是这样的啊：

<asp:TemplateColumn HeaderText="删除">
<ItemStyle BackColor="#F7FBFF" Width="40pt"></ItemStyle>
<ItemTemplate>
<asp:LinkButton id="Linkbutton1" runat="server" Text="删除" CommandName="delete" CausesValidation="false"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateColumn>


在哪里写那个SUB呢？？？？

[hunter_32]

按钮资料行选
删除

页首文字 填
删除
文字 填
<img onclick="return confirm('您確認刪除這筆記錄嗎?');" alt="刪除" src="../img/imgDel.bmp" border=0>
命令名
Delete
按钮类型
连接按钮
//---------------------
由于系统是繁体所以大体与简体的应该差不多。最关键的一点是
按钮类型
千万别选按钮 要选连接按钮

[hunter_32]

上面的最简单最方便。

[yuanlfrj]

在DataGrid中找到对应控件(例如:btnButton),添加:
btnButton.Attribute.Add("onclick","confirm('确认删除吗?')");

[wangyanyan]

都是一个意思.

[yuanlfrj]

写错了,是这样的btnButton.Attribute.Add("onclick","return confirm('确认删除吗?')");

[hunter_32]

html中这样写的
<asp:ButtonColumn Text="<img onclick="return confirm('您確認刪除這筆記錄嗎?');" alt="刪除" src="../img/imgDel.bmp" border=0>"
HeaderText="刪除" CommandName="Delete"></asp:ButtonColumn>
注意要原封照搬，不要修改 Text内容。

[活靶子哥哥]

http://huobazi.cnblogs.com/archive/2004/04/05/5200.aspx

[lazyfish]

Private Sub DataGrid1_ItemDataBound(...) Handles DataGrid1.ItemDataBound
if e.Item.ItemType == ListItemType.Item or e.Item.ItemType == ListItemType.AlteringItem then
dim lbtn as LinkButton = e.Item.FindControl("Linkbutton1") as LinkButton ;

lbtn.Attributes.Add("onclick","if(confirm('是否确认此操作?'))")
end if
end sub

[lions911]

看到大家这么热情，我真不好意思啊，还没弄出来。

前面是个模版列的LINKBUTTON，后面我加了这个：

Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound

If e.Item.ItemIndex > -1 Then

Dim lbtn As LinkButton = e.Item.FindControl("Linkbutton1")

lbtn.Attributes.Add("onclick", "if(confirm('是否确认此操作?'))")
End If


End Sub

可还是不行啊！！

[hunter_32]

html中这样写的
<asp:ButtonColumn Text="<img onclick="return confirm('您確認刪除這筆記錄嗎?');" alt="刪除" src="../img/imgDel.bmp" border=0>"
HeaderText="刪除" CommandName="Delete"></asp:ButtonColumn>
注意要原封照搬，不要修改 Text内容。

你照搬这个就好，只是把繁体修改成简体。

[xzr2004]

我以前做了一个，不过用的是Repeater+超链接:
<%# "<a href=Reply.aspx?id="+DataBinder.Eval(Container.DataItem,"ID")+">回复</a>　<a href=Del.aspx?id="+ DataBinder.Eval(Container.DataItem,"ID") +" onclick="+(char)34+"return confirm('确定删除吗？');"+(char)34+">删除</a>" %>

Del.aspx.cs如下：

string ID;
ID = Request.QueryString["id"].ToString();
if (!StrRegExp.IsID(ID))
{
Response.Redirect("index.aspx");
}
else
{
OleDbConnection Conn = db.CreateConnection();
Conn.Open();
OleDbCommand cmd = new OleDbCommand("Delete From Content Where ID = @ID",Conn);
cmd.Parameters.Add(new OleDbParameter("@ID",OleDbType.BigInt));
cmd.Parameters["@ID"].Value = ID;
cmd.ExecuteNonQuery();
Conn.Close();
if (Request.ServerVariables["HTTP_REFERER"] == null)
Response.Redirect("index.aspx");
else
Response.Redirect(Request.ServerVariables["HTTP_REFERER"].ToString());
}

[lions911]

我的天啊，终于搞定了，谢谢大家~~全有分~~

我加了个事件，就好了，谢谢大家。

Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound

'If e.Item.ItemIndex > -1 Then

'Dim lbtn As LinkButton = e.Item.FindControl("Linkbutton1")

'lbtn.Attributes.Add("onclick", "if(confirm('是否确认此操作?'))")
' End If



If e.Item.ItemIndex > -1 Then
'Dim lbtn As LinkButton = e.Item.Cells(5).Controls(0) '其中n是按钮列的列好
'dim btn as Button = e.Item.Cells(n).Controls(0)'如果用的是pushButton则用这个
Dim lbtn As LinkButton = e.Item.FindControl("Linkbutton1")
lbtn.Attributes.Add("onclick", "return confirm('是否确认此操作?');")
End If



End Sub

[Eddie005]

......

僧多粥少~~~