真是一肚子的气，LIN KBUTTON。。。。哎。。。

Question

Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
        Dim links As LinkButton = New LinkButton
        links = e.Item.FindControl("delete")
        links.Attributes.Add("onclick", "javascript:{if(confirm('确定删除用户吗？')==false) return false;}")
    End Sub怎么死活老是提示错误啊，到处都是C#的代码，VB真烂到家了，哎，真无奈，没人用VB，我快气死了一直找不到答案，我是用DATAGIRD，在删除的时候，根本就调用不到JS，哎，，晕啊，

Answer 1

Private Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated
        Select Case e.Item.ItemType
            Case ListItemType.Item, ListItemType.AlternatingItem, ListItemType.EditItem
                Dim myDeleteButton As ImageButton
                myDeleteButton = e.Item.FindControl("ImageButton1")
                myDeleteButton.Attributes.Add("onclick", "return confirm('您确定要删除该专题吗，该操作将不可恢复哦？');")
        End Select
    End Sub
 Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
        Select Case e.CommandName
            Case "del"                Dim Conn As New OleDbConnection("Data Source=""" & Me.Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings("database")) & """;Provider=""Microsoft.Jet.OLEDB.4.0"";User ID=Admin")
                Dim ztbody As New OleDbCommand("DELETE FROM T_BookSpecialBody where SpecialID=" & e.Item.Cells(0).Text & "", Conn)
                Conn.Open()
                ztbody.ExecuteNonQuery()
                Dim zttitle As New OleDbCommand("DELETE FROM T_BookSpecialTitle where SpecialID =" & e.Item.Cells(0).Text & "", Conn)
                If zttitle.ExecuteNonQuery > 0 Then                    Me.Response.Write("<script language=javascript>alert('该专题已经成功删除！')</script>")
                End If
                If DataGrid1.CurrentPageIndex < Me.DataGrid1.PageCount And DataGrid1.CurrentPageIndex <> 0 Then
                    DataGrid1.CurrentPageIndex = DataGrid1.CurrentPageIndex - 1
                End If

Answer 2

晕了，你这个代码做什么啊，我是LINKBUTTON的问题，你给IMAGEBUTTON也没用啊，真是郁闷。哎。。