为DataGrid添加确认删除的对话框(3)

转载 2006年06月15日 14:51:00

DeleteIt3.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="DeteleIt3.aspx.vb" Inherits="aspxWeb.DeteleIt3"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
  <HEAD>
    <title>DeteleIt3</title>
    <meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
    <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
    <meta content="JavaScript" name="vs_defaultClientScript">
    <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
  </HEAD>
  <body MS_POSITIONING="GridLayout">
    <asp:label id="Label1" runat="Server"></asp:label>
    <form id="Form1" runat="server">
      <asp:datagrid id="myDataGrid" runat="server" AutoGenerateColumns="True" DataKeyField="Title">
        <Columns>
          <asp:ButtonColumn CommandName="Delete" ButtonType="PushButton" />
        </Columns>
      </asp:datagrid>
    </form>
  </body>
</HTML>

后代码DeteleIt3.aspx.vb

Imports System.Web
Imports System.Data
Imports System.Data.OleDb

Public Class DeteleIt3
  Inherits System.Web.UI.Page
  Protected WithEvents Label1 As System.Web.UI.WebControls.Label
  Protected WithEvents myDataGrid As System.Web.UI.WebControls.DataGrid

#Region " Web 窗体设计器生成的代码 "

  '该调用是 Web 窗体设计器所必需的。
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

  End Sub

  Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
    '不要使用代码编辑器修改它。
    InitializeComponent()
  End Sub

#End Region

  Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '在此处放置初始化页的用户代码
    If Not IsPostBack Then
      Dim strCn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
      Dim strSql As String = "SELECT Top 15 Title,CreateDate FROM Document Order By CreateDate Desc"
      Dim cn As New OleDbConnection(strCn)
      cn.Open()
      Dim cmd As New OleDbCommand(strSql, cn)
      myDataGrid.DataSource = cmd.ExecuteReader(CommandBehavior.CloseConnection)
      myDataGrid.DataBind()
      cmd.Dispose()
      cmd = Nothing
      cn.Close()
      cn.Dispose()
      cn = Nothing
    End If
    Page.RegisterOnSubmitStatement("OnSubmit", "{return confirm('您真的要删除此行吗??') } ")
  End Sub

  Sub myDataGrid_ItemCreated(ByVal sender As Object, _
   ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles myDataGrid.ItemCreated
    Select Case e.Item.ItemType
      Case ListItemType.Item, ListItemType.AlternatingItem, ListItemType.EditItem
        Dim myTableCell As TableCell
        myTableCell = e.Item.Cells(0)
        Dim myDeleteButton As Button
        myDeleteButton = myTableCell.Controls(0)
        myDeleteButton.Text = "删除此行"
      Case ListItemType.Header
        e.Item.Font.Bold = True
        e.Item.HorizontalAlign = HorizontalAlign.Center
        e.Item.BackColor = System.Drawing.Color.Ivory
        e.Item.Cells(0).Text = "操作"
        e.Item.Cells(1).Text = "文章标题"
        e.Item.Cells(2).Text = "发布日期"
    End Select
  End Sub

  Private Sub myDataGrid_DeleteCommand(ByVal source As Object, _
   ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.DeleteCommand
    Label1.Text = "您删除的是:<font color=red>" + myDataGrid.DataKeys(CInt(e.Item.ItemIndex)) + "</font>"
    e.Item.BackColor = System.Drawing.Color.Tomato
  End Sub

End Class

 

相关文章推荐

框架 day49 BOS项目练习3(修复window控件BUG,添加/修改/作废取派员,datagrid使用,分页查询(DetachedCriteria离线),formatter函数)

修复window控件BUG,添加/修改/作废取派员,datagrid使用,分页查询(DetachedCriteria离线),formatter函数...

gridview删除添加确认对话框以及模板列操作

如何为gridview控件里的“删除”列添加一个确认对话框?网上众说纷纭,大致见到了三种解决方案,现归纳如下: 1、继承Web.IO里的button控件,为其实现一个IPostback的接口用于回调...

为GRIDVIEW“删除”列添加确认对话框

如何为gridview控件里的“删除”列添加一个确认对话框?网上众说纷纭,大致见到了三种解决方案,现归纳如下: 1、继承Web.IO里的button控件,为其实现一个IPostback的接口用于回调...

为GRIDVIEW“删除”列和Button按钮添加确认对话框

如何为gridview控件里的“删除”列添加一个确认对话框?网上众说纷纭,大致见到了三种解决方案,现归纳如下: 1、继承Web.IO里的button控件,为其实现一个IPostback的接口用于回调...
  • qycer
  • qycer
  • 2012年03月15日 18:38
  • 558

模式对话框和js操作gridview (Datagrid)

设计网站交互时,尽量不要有太多的弹出框,这样对用户来说很突兀,打开多个弹出窗口后,都不知道哪一个是哪一个,有的是模式对话框,弹出一个后,主窗口不能正常操作,浏览器也不能关闭,必须关掉该对话框;技术上要...

datagrid 基本添加行,删除行,插入行,自定义方法

一、需要引入的文件 二、代码详解 /* 允许编辑单元格 */ $('#contentTable').datagrid().datagrid('enableCellEditing'); /*...

基于asp.net + easyui框架,一步步学习easyui-datagrid——实现添加、编辑、删除(三)

上周就想更新这篇博客了,但是在做这个界面的过程中,遇到了很多的问题,一时没有解决方案,现在想到了一个,虽然还有点不尽完美,但是能实现项目的基本功能。在下面我会给大家说一下我遇到的困难,并提供实现的代码...

easyui datagrid实现批量添加、删除、修改,列多对多动态配比

最近用easyui做了个商城的简单商品管理,商品属性防淘宝店面后台属性添加功能,分析给大家一下部分Demo 效果: html代码: easyui datagrid实现批量...
  • vaneHai
  • vaneHai
  • 2013年05月14日 19:54
  • 1680

Flex4 DataGrid 中添加编辑和删除按钮

目的是在一个DataGrid里实现点击按钮进行对DataGrid这一行的修改和删除。不多说直接上代码,看样式: public var users:ArrayCollection=new Ar...

asp.net与JQuery EasyUi DataGrid 服务器端分页,添加增加,修改,删除 按钮

Html代码 background-color: #F4F4F4; overflow: hidden;"> 公司名称 查询 padding-left: 0; overflow: hidde...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:为DataGrid添加确认删除的对话框(3)
举报原因:
原因补充:

(最多只允许输入30个字)