9-7.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 49 行

ASPX
49 行
字号 
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
 
<html>
   <script runat="server">
      Function CreateDataSource() As ICollection
         Dim dt As New DataTable()
         Dim dr As DataRow
         Dim i As Integer     
         dt.Columns.Add(New DataColumn("IntegerValue", GetType(Int32)))
         dt.Columns.Add(New DataColumn("StringValue", GetType(String)))
         dt.Columns.Add(New DataColumn("CurrencyValue", GetType(Double))) 
         For i = 0 To 8
            dr = dt.NewRow()          
            dr(0) = i
            dr(1) = "Item " + i.ToString()
            dr(2) = 1.23 *(i + 1)           
            dt.Rows.Add(dr)
         Next i        
         Dim dv As New DataView(dt)
         Return dv

      End Function 'CreateDataSource

      Sub Page_Load(sender As Object, e As EventArgs)
         If Not IsPostBack Then
            ' Need to load this data only once.
            ItemsGrid.DataSource = CreateDataSource()
            ItemsGrid.DataBind()
         End If
      End Sub 'Page_Load 
   </script>
<body> 
   <form runat="server"> 
      <h3>DataGrid显示</h3>
      <b>产品列表</b>
      <asp:DataGrid id="ItemsGrid"
           BorderColor="blue"
           BorderWidth="1"
           CellPadding="3"
           AutoGenerateColumns="true"
           runat="server">
         <HeaderStyle BackColor="White">
         </HeaderStyle> 
      </asp:DataGrid> 
   </form> 
</body>
</html>

9-7.aspx - 源码说明

本页面展示了「asp做的新闻系统」中的 9-7.aspx 源码文件，采用 ASPX 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?