将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
2005-12-29 13:22
363 查看
将某一目录下的所有相同格式的 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>
<%@ 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>
相关文章推荐
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的Da
- 某一目录下的所有 xml文件绑定到不同的datagrid的方法
- 某一目录下的所有 XML文件绑定到不同的DataGrid的方法
- 悬而未决:取得二个相同目录下不同修改日期的所有文件及全不覆盖复制
- 读取某一目录下(包括子目录)所有mp3、wma、m4a格式文件,制作成m3u列表(Java, Windows)
- 将两个不同格式的XML文件,进行节点对照,并生成一个用于对照功能的XML
- IIS7多域名绑定同一物理目录,设置不同默认文档的解决方案
- 在某一磁盘目录下将.txt的所有文件遍历打印到控制台上
- 1.作业:找出指定目录下所有.xml文件的相关信息
- easyUI中的datagrid的formatter方法中 使用$.ajax()方法绑定多个不同数据源的数据
- SAS程序:将目录下的所有指定格式的数据文件导入SAS
- 用JS获取元素某一事件上绑定的所有Listener