為DataGrid添加自動編號功能
2024-07-21 02:23:07
供稿：網友
下面的代碼實現在datagrid中添加自動編號的功能，主要是在數據綁定時利用item屬性。
查看例子
datagridwithline.aspx
<%@ page language="vb" autoeventwireup="false" codebehind="datagridwithline.aspx.vb"
inherits="aspxweb.datagridwithline"%>
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<title>datagridwithline</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:datagrid id="datagrid1" runat="server" autogeneratecolumns="false">
<headerstyle font-bold="true" wrap="false" horizontalalign="center"></headerstyle>
<columns>
<asp:templatecolumn></asp:templatecolumn>
<asp:boundcolumn datafield="title"></asp:boundcolumn>
<asp:boundcolumn datafield="createdate" dataformatstring="{0:yyyy-m-d h:m:s}"></asp:boundcolumn>
</columns>
</asp:datagrid>
</form>
</body>
</html>
datagridwithline.aspx.vb
imports system
imports system.data
imports system.data.oledb
public class datagridwithline
inherits system.web.ui.page
protected withevents datagrid1 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
datagrid1.columns(0).headertext = "序號"
datagrid1.columns(1).headertext = "文章標題"
datagrid1.columns(2).headertext = "創建日期"
dim cnstring as string = "provider=microsoft.jet.oledb.4.0;data source=" + server.mappath("test.mdb")
dim strsql as string = "select top 21 title,createdate from document order by createdate desc"
dim cn as new oledbconnection(cnstring)
cn.open()
dim cmd as new oledbcommand(strsql, cn)
dim db as oledbdatareader
db = cmd.executereader(commandbehavior.closeconnection)
datagrid1.datasource = db
datagrid1.databind()
cn.close()
cn = nothing
cmd = nothing
db.close()
db = nothing
end sub
private sub datagrid1_itemdatabound(byval sender as object, _
byval e as system.web.ui.webcontrols.datagriditemeventargs) handles datagrid1.itemdatabound
if e.item.itemindex <> -1 then
e.item.cells(0).text = e.item.itemindex + 1
end if
end sub
end class
本文來源于網頁設計愛好者web開發社區http://www.html.org.cn收集整理，歡迎訪問。
