显示和隐藏DataGrid中的列

本文介绍了一个ASP.NET Web应用程序中实现数据网格列显示与隐藏的方法。通过两个按钮触发事件,可以控制DataGrid中列的可见性。此外,文章还展示了如何从数据库中加载数据并绑定到DataGrid。
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="ShowHideCols.aspx.vb" 
Inherits
="aspxWeb.ShowHideCols"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD html 4.0 Transitional//EN">
<HTML>
  
<HEAD>
    
<title>ShowHideCols</title>
    
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
    
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
    
<meta name="vs_defaultClientScript" content="JavaScript">
    
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
  
</HEAD>
  
<body MS_POSITIONING="GridLayout">
    
<form id="Form1" method="post" runat="server">
      
<asp:Button ID="btnShow" Text="Show Details" OnClick="ShowDetails" Runat="server" />
      
<asp:Button ID="btnHide" Text="Hide Details" OnClick="HideDetails" Runat="server" />
      
<asp:DataGrid ID="dtgCusts" Runat="server" AutoGenerateColumns="False"
       BorderColor
="#999999" BorderStyle="None" BorderWidth="1px" BackColor="White"
        CellPadding
="3" GridLines="Vertical">
        
<Columns>
          
<asp:BoundColumn DataField="Title" />
          
<asp:BoundColumn DataField="id" Visible="False" />
          
<asp:BoundColumn DataField="CreateDate" DataFormatString="{0:yyyy-MM-dd HH:mm:ss}"
           Visible
="False" />
            
<asp:EditCommandColumn EditText="Edit" HeaderText="Edit" Visible="False" />
        
</Columns>
        
<AlternatingItemStyle BackColor="#DCDCDC" />
        
<ItemStyle ForeColor="Black" BackColor="#EEEEEE" />
        
<headerStyle Font-Bold="True" ForeColor="White" BackColor="#000084" />
      
</asp:DataGrid>
    
</form>
  
</HTML>

后代码脚本

Imports System.Data
Imports System.Data.OleDb

Public Class ShowHideCols
  Inherits System.Web.UI.Page
  Protected WithEvents btnShow As System.Web.UI.WebControls.Button
  Protected WithEvents btnHide As System.Web.UI.WebControls.Button
  Protected WithEvents dtgCusts 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 System.Object, ByVal e As System.EventArgs)_
   Handles MyBase.Load
    
'在此处放置初始化页的用户代码
    btnShow.Text = "显示列"
    btnHide.Text 
= "隐藏列"
    dtgCusts.Columns(
1).HeaderText = ""
    dtgCusts.Columns(
0).HeaderText = "标题"
    dtgCusts.Columns(
2).HeaderText = "发布日期"
    dtgCusts.Columns(
3).HeaderText = "编辑"
    If Not IsPostBack Then
      BindTheData()
    End If
  End Sub

  Sub BindTheData()
    Dim objConn As OleDbConnection
    Dim objCmd As OleDbCommand
    objConn 
= New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
    
+ Server.MapPath("Test.mdb"))
    Dim strSql As String
    strSql 
= "SELECT Top 10 id,Title,CreateDate FROM Document"
    objCmd 
= New OleDbCommand(strSql, objConn)
    objConn.Open()
    dtgCusts.DataSource 
= objCmd.ExecuteReader()
    dtgCusts.DataBind()
    objConn.Close()
    objConn.Dispose()
  End Sub
  Sub ShowDetails(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim intCounter As Integer
    For intCounter 
= 1 To dtgCusts.Columns.Count - 1
      dtgCusts.Columns(intCounter).Visible 
= True
    Next
  End Sub

  Sub HideDetails(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim intCounter As Integer
    For intCounter 
= 1 To dtgCusts.Columns.Count - 1
      dtgCusts.Columns(intCounter).Visible 
= False
    Next
  End Sub

End Class

 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值