defaultview-2.aspx

几个不错的ASP.NTE例子

<%@Import Namespace=System.Data.oledb%>
<%@Import Namespace=System.Data%>
<Script Language="VB" Runat="Server">
Sub Page_Load(Sender As Object, e As EventArgs)
Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=d:\asp.net\samples\db1.mdb"
Dim strComStr As String = "Select * From score"
Dim dscA As oledbDataAdapter = New oledbDataAdapter(strComStr,strConStr)
Dim dsDataSet As DataSet = New DataSet()
Dim shtR As Short
dscA.Fill(dsDataSet, "score")
Dim dv1st As DataView = New DataView(dsDataSet.Tables(0))
dv1st.Sort = "chinese ASC" 
'指定依chinese 由小排到大的配置
dv1st(0)("english")="00" 
'修改其中一个DataView 的内容
Response.Write("观察原来DataTable 中的数据是否有改变:<br>")
For shtR=0 To dsDataSet.Tables(0).Rows.Count-1 
'DataTable 中的原来数据
Response.Write("顺序" & (shtR+1).ToString & " " & _
" -> " & dsDataSet.Tables(0).Rows(shtR)("chinese") & " ")
Next
For shtR=0 To dsDataSet.Tables(0).Rows.Count-1 
'显示history字段的资料
Response.Write("  内容" & (shtR+1).ToString & " " & _
" 是 " & dsDataSet.Tables(0).Rows(shtR)("english"))
Next
Response.Write("<p>dv1st 指定依chinese 由小排到大的配置:<br>")
For shtR=0 To dv1st.Count-1 
'显示DataView 整理的资料
Response.Write("顺序" & (shtR+1).ToString & " " & _
" 是 " & dv1st(shtR)("chinese") & " ")
Next
For shtR=0 To dv1st.Count-1 
'显示english字段的资料
Response.Write("  内容" & (shtR+1).ToString & " " & _
" 是 " & dv1st(shtR)("english"))
Next
End Sub
</SCRIPT>