将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid

作者:佚名来源:一亩三分地点击: 日期:2007-03-30

将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid的方法。

<%@ Page Language="vb"%>
<%@ Import NameSpace = "System" %>
<%@ Import NameSpace = "System.Xml" %>
<%@ Import NameSpace = "System.IO" %>
<%@ Import NameSpace = "System.Collections" %>
<%@ Import NameSpace = "System.Web" %>
<%@ Import NameSpace = "System.Web.UI" %>
<%@ Import NameSpace = "System.Web.UI.WebControls" %>
<%@ Import NameSpace = "System.Data" %>

<script runat=Server>
Sub Page_Load( sender as object, e as System.EventArgs)
Dim dir As DirectoryInfo = New DirectoryInfo("D:\Web")
Dim files As FileInfo() = dir.GetFiles()
Dim count As Integer = files.Length
Dim i As Integer
For i = 0 To count - 1
If files(i).Name.SubString(files(i).Name.LastIndexOf(".")) = ".xml" Then
Dim ds As New DataSet()
'ds.ReadXml("d:\Web\c.xml")
ds.ReadXml(files(i).FullName)
Dim dt as DataGrid = New DataGrid()
dt.ID = "DataGrid" + i.ToString()
dt.AutoGenerateColumns=false

Dim MyName As BoundColumn = New BoundColumn()
Dim MyProductID As BoundColumn = New BoundColumn()
Dim Price As BoundColumn = New BoundColumn()
Dim Quantity As BoundColumn = New BoundColumn()

MyName.HeaderText="名字"
MyName.DataField="Name"

MyProductID.HeaderText="序号"
MyProductID.DataField="ProductID"

Price.HeaderText="价格"
Price.DataField="Price"

Quantity.HeaderText="数量"
Quantity.DataField="Quantity"

dt.Columns.AddAt(0, MyName)
dt.Columns.AddAt(0, MyProductID)
dt.Columns.AddAt(2, Price)
dt.Columns.AddAt(3, Quantity)

dt.DataSource = ds.Tables("Product")
dt.DataBind()
Me.Controls.Add(dt)
End If
Next
End Sub
</script>
<form runat=server>
</form>

【文章评论】【收藏本文】【推荐好友】【打印本文】【论坛讨论】

·给你的FileSystemObject对象加把锁	·在 Web 页上使用条件数值格式
·连接数据库查询手册（不仅仅适用于asp）	·警惕"给你的FileSystemObject对象加把锁"
·用ASP做全文检索	·如何把ASP编写成DLL

文章评论:(条)

请留名：匿名评论点击查看所有评论网管论坛

责任编辑:一分声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。

关于我们 - 管理团队 - 网站历史 - 联系我们 - 广告服务 - 法律声明 - 网站地图 - RSS订阅 - 返回顶部

Power by DedeCms

将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid

作者:佚名 来源:一亩三分地 点击: 日期:2007-03-30

作者:佚名来源:一亩三分地点击: 日期:2007-03-30