📄 datatableproperties.aspx

📁 asp.net技术内幕的书配源码

💻 ASPX

字号:

<%@ Import Namespace="System.Data" %>

<Script Runat="Server">

Sub Page_Load
  Dim dtblPasswords As DataTable
  Dim dcolColumn As DataColumn
  Dim arrColumns( 1 ) As DataColumn
  Dim drowRow As DataRow
  Dim dvwPasswords As DataView
  Dim intCounter As Integer

  ' Create the DataTable
  dtblPasswords = New DataTable( "passwords" )
  dtblPasswords.MinimumCapacity = 200
  dtblPasswords.CaseSensitive = True

  ' Add the Password Column as a Primary Key
  dcolColumn = New DataColumn( "password", GetType( String ) )
  dtblPasswords.Columns.Add( dcolColumn )
  arrColumns( 0 ) = dcolColumn
  dtblPasswords.PrimaryKey = arrColumns

  ' Add some rows
  For intCounter = 1 to 100
    drowRow = dtblPasswords.NewRow()
    drowRow( "password" ) = "SECRET" & intCounter.ToString()
    dtblPasswords.Rows.Add( drowRow )
    drowRow = dtblPasswords.NewRow()
    drowRow( "password" ) = "secret" & intCounter.ToString()
    dtblPasswords.Rows.Add( drowRow )
  Next

  ' Bind DataTable to DataGrid
  dvwPasswords = dtblPasswords.DefaultView
  dvwPasswords.RowFilter = "password='secret1'"
  dgrdPasswords.DataSource = dvwPasswords
  dgrdPasswords.DataBind()
End Sub

</Script>

<html>
<head><title>DataTableProperties.aspx</title></head>
<body>

<asp:DataGrid
  ID="dgrdPasswords"
  Runat="Server" />

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -