日期:2010-05-14 浏览次数:20410 次
在DataCon Web项目里添加一个Web 窗体,命名为DataGrid_Sample5.aspx,并添加一个DataGrid控件。DataGrid控件属性设置如下:
<asp:DataGrid id="DataGrid1"
runat="server" AutoGenerateColumns="False"
Height="282px" AllowPaging="True">
<AlternatingItemStyle Font-Size="X-Small" BackColor="Gainsboro"></AlternatingItemStyle>
<ItemStyle Font-Size="X-Small" BackColor="WhiteSmoke"></ItemStyle>
<HeaderStyle BackColor="#99CCCC"></HeaderStyle>
<Columns>
<asp:BoundColumn DataField="id" ReadOnly="True" HeaderText="编号"></asp:BoundColumn>
<asp:BoundColumn DataField="name" HeaderText="姓名"></asp:BoundColumn>
<asp:BoundColumn DataField="sex" ReadOnly="True" HeaderText="性别"></asp:BoundColumn>
<asp:BoundColumn DataField="class" ReadOnly="True" HeaderText="班级"></asp:BoundColumn>
<asp:BoundColumn DataField="address" ReadOnly="True" HeaderText="住址"></asp:BoundColumn>
<asp:EditCommandColumn ButtonType="PushButton" UpdateText="更新" HeaderText="编辑" CancelText="取消" EditText="编辑"></asp:EditCommandColumn>
<asp:ButtonColumn Text="删除" CommandName="Delete" HeaderText ="删除"></asp:ButtonColumn>
</Columns>
<PagerStyle Position="TopAndBottom" Mode="NumericPages"></PagerStyle>
</asp:DataGrid>
在这个实例中,我们使用了自定义的DataGrid控件的模板设置,在设置列时使用<Columns><asp:BoundColumn>标记,其中<asp:BoundColumn>的DataField属性表示绑定的数据表中的字段名称,而HeaderText表示显示的字段名称,这样可以作出友好的数据表头。当使用自定义模板时候,记得一定要把AutoGenerateColumns的值设为"False",否则,在显示的数据表中将重复显示两边,一个是自定义的模板形式的,一个是系统根据数据表显示的。系统默认的是绑定的列可以进行编辑的,但是实际应用中,我们往往不需要每列的字段都可以编辑,只要我们在每个<asp:BoundColumn>里添加ReadOnly="True"就可以屏蔽掉该列的可编辑属性。在这个实例中,为了便于显示,我们只要求"name"字段可以编辑,其他都是ReadOnly="True"。<asp:EditCommandColumn>的ButtonType有两种,分别是PushButton(按钮样式)和LinkButton(超连接样式),系统默认的是LinkButton,我们在这个实例中使用BushButton样式。<asp:ButtonColumn Text="删除" CommandName="Delete">的样式也是上面两种,我们选择的是LinkButton样式 。
我们再来看DataGrid_Sample5.aspx.vb中的逻辑编码部分:
'----code begin-----
'----省略命名空间的引用
Public Class DataGrid_Sample5
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'此处省略窗体设计器生成的代码
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
getdata()
'调用数据绑定过程
End If
End Sub
'下面是数据绑定过程
Sub getdata()
Dim mycon As OleDb.OleDbConnection
Try
mycon = New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" + Server.MapPath(".") + "\StudentInfor.mdb")
Dim mycmd As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select id ,name,sex,class,address from student", mycon)
Dim dt As Data.DataSet = New Data.DataSet