📄 formdatasource03.aspx

📁 asp做的新闻系统

💻 ASPX

字号:

<%@ Import NameSpace="System.Data" %>
<html>
  <script language="vb" runat=server>
    Function LoadData() As ICollection
        Dim dt As DataTable
        Dim dr As DataRow

        '建立数据表
        dt = New DataTable
        dt.Columns.Add(New DataColumn("姓氏", GetType(String)))
        dt.Columns.Add(New DataColumn("名字", GetType(String)))

        '载入五个人的数据
        dr = dt.NewRow()
        dr(0) = "Bennet" 
        dr(1) = "Abraham"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = "Blotchet-Halls" 
        dr(1) = "Reginald"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = "Carson" 
        dr(1) = "Cheryl"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = "DeFrance" 
        dr(1) = "Michel"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = "del Castillo" 
        dr(1) = "Innes"
        dt.Rows.Add(dr)

        '返回数据表的数据视图
        LoadData = New DataView(dt)
    End Function

    Sub Page_Load(o as object,e as eventargs)
       If Not IsPostBack
          DtGrd.DataSource=LoadData
          DtGrd.DataBind
       End If
    End Sub
   </script>
 <head>
   <title>
     数据绑定试验
   </title>
 </head>
 <body bgcolor=#ccccff>
   <center>
   <h2>数据绑定之数据源试验(ICollection)</h2>
   <hr>
    <form runat=server>
     <asp:DataGrid id="DtGrd" runat=server/>
    </form>
   </center>
 </body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -