<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<Script Language=VB Runat=Server>
Sub Page_Load(Sender As Object, e As EventArgs)
Dim dtConn As OleDbConnection
Dim dtCmd As OleDbDataAdapter
Dim dtSet As DataSet
Dim sSQL As String
Dim dv,dv2 As DataView
sSQL = "Select * From 学生成绩表;"
dtConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Sample.mdb"))
dtCmd = New OleDbDataAdapter(sSql, dtConn)
dtSet = New DataSet
dtCmd.Fill(dtSet)
dv=New DataView(dtSet.Tables(0))
dv.RowFilter="数学>=90"
dv2=New DataView(dtSet.Tables(0))
dv2.RowFilter="数学<90"
myDataGrid.DataSource=dv
myDataGrid.DataBind()
my2DataGrid.DataSource=dv2
my2DataGrid.DataBind()
ENd Sub
</Script>
<body>
<h3><font face="Verdana">使用DataView自定义显示的数据</font></h3>
<form runat=server>
<h3><font face="Verdana">数学成绩大于等于90的学生信息</font></h3>
<ASP:DataGrid id="myDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
/>
<h3><font face="Verdana">数学成绩小于等于90的学生信息</font></h3>
<ASP:DataGrid id="my2DataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
/>
</form>
</body>
</html>