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

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

<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>

版权声明：本站所有程序只供学习参考，不得复制和转载。如本文牵涉版权问题，本人不承担相关责任，请版权拥有者直接与文章作者联系解决。