某一目录下的所有 XML文件绑定到不同的DataGrid的方法
2004-09-15 11:33
483 查看
<!--某一目录下的所有 XML文件绑定到不同的DataGrid的方法。
原著:孟子E章
修改:塞北的雪
-->
<%@ 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" %>
<%@ Import NameSpace = "System.Drawing" %>
<SCRIPT runat="Server">
Sub Page_Load( sender as object, e as System.EventArgs)
Dim dir As DirectoryInfo = New DirectoryInfo(Server.MapPath("remark/"))
Dim files As FileInfo() = dir.GetFiles()
Dim count As Integer = files.Length
Dim i As Integer
dim j as Integer
dim k 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(files(i).FullName)
for k=0 to ds.tables.count-1
Dim dt as DataGrid = New DataGrid()
dt.ID = "DataGrid" + i.ToString() + k.ToString()
dt.HeaderStyle.BackColor=Color.Red
dt.AutoGenerateColumns=false
Dim MyName as BoundColumn()
redim MyName(ds.tables(k).columns.count)
for j=0 to ds.tables(k).columns.count-1
MyName(j)=new BoundColumn()
MyName(j).HeaderText=ds.tables(k).columns(j).columnname
MyName(j).DataField=ds.tables(k).columns(j).columnname
dt.Columns.AddAt(0, MyName(j))
next
dt.DataSource = ds.Tables(k)
dt.DataBind()
Me.Controls.Add(dt)
next
End If
Next
End Sub
</SCRIPT>
原著:孟子E章
修改:塞北的雪
-->
<%@ 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" %>
<%@ Import NameSpace = "System.Drawing" %>
<SCRIPT runat="Server">
Sub Page_Load( sender as object, e as System.EventArgs)
Dim dir As DirectoryInfo = New DirectoryInfo(Server.MapPath("remark/"))
Dim files As FileInfo() = dir.GetFiles()
Dim count As Integer = files.Length
Dim i As Integer
dim j as Integer
dim k 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(files(i).FullName)
for k=0 to ds.tables.count-1
Dim dt as DataGrid = New DataGrid()
dt.ID = "DataGrid" + i.ToString() + k.ToString()
dt.HeaderStyle.BackColor=Color.Red
dt.AutoGenerateColumns=false
Dim MyName as BoundColumn()
redim MyName(ds.tables(k).columns.count)
for j=0 to ds.tables(k).columns.count-1
MyName(j)=new BoundColumn()
MyName(j).HeaderText=ds.tables(k).columns(j).columnname
MyName(j).DataField=ds.tables(k).columns(j).columnname
dt.Columns.AddAt(0, MyName(j))
next
dt.DataSource = ds.Tables(k)
dt.DataBind()
Me.Controls.Add(dt)
next
End If
Next
End Sub
</SCRIPT>
相关文章推荐
- 某一目录下的所有 xml文件绑定到不同的datagrid的方法
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- XML文件绑定到不同的DataGrid的方法
- 将某一目录下的所有相同格式的 XML文件绑定到不同的DataGrid
- 将某一目录下的所有相同格式的 XML文件绑定到不同的Da
- 利用DataGrid显示某目录下的所有文件
- 将DBF,XLS,XML,MDB文件导入C#DataGrid的方法,
- 将DBF,XLS,XML,MDB文件导入C#DataGrid的方法
- 获得指定目录下的所有文件的方法!
- 利用DataGrid显示某目录下的所有文件
- 利用DataGrid显示某目录下的所有文件
- 利用DataGrid显示某目录下的所有文件
- 遍历所有当前及下级目录,并记录为XML文件