Sorting
-
Hi I'm trying to do file listings on separate folders and display it on a datagrid. However, for some reasons the sorting is not working. Below is my code. Can anyone help? thank you Sub createDataSource() Dim DV As DataView Dim DS As New DataSet Dim DT As New DataTable Dim DR As DataRow DT.Columns.Add("Category", GetType(String)) DT.Columns.Add("Filename", GetType(String)) Dim DirInfo1 As DirectoryInfo Dim FileInfos1() As FileInfo Dim Fi1 As FileInfo Dim DirInfo2 As DirectoryInfo Dim FileInfos2() As FileInfo Dim Fi2 As FileInfo '----------------------------- DirInfo1 = New DirectoryInfo("C:\TEMP\") FileInfos1 = DirInfo1.GetFiles("*.*") For Each Fi1 In FileInfos1 DR = DT.NewRow() DR(0) = "Guide" DR(1) = "" & Fi1.Name.ToString & "" DT.Rows.Add(DR) Next '----------------------------- DirInfo2 = New DirectoryInfo("c:\temp\forms_radsql\") FileInfos2 = DirInfo2.GetFiles("*.*") For Each Fi2 In FileInfos2 DR = DT.NewRow() DR(0) = "Guide" DR(1) = Fi2.Name.ToString DT.Rows.Add(DR) Next DS.Tables.Add(DT) DV = New DataView(DS.Tables(0)) DV.Sort = "Filename ASC" Me.DataGrid1.DataSource = DV Me.DataGrid1.DataBind() End Sub
-
Hi I'm trying to do file listings on separate folders and display it on a datagrid. However, for some reasons the sorting is not working. Below is my code. Can anyone help? thank you Sub createDataSource() Dim DV As DataView Dim DS As New DataSet Dim DT As New DataTable Dim DR As DataRow DT.Columns.Add("Category", GetType(String)) DT.Columns.Add("Filename", GetType(String)) Dim DirInfo1 As DirectoryInfo Dim FileInfos1() As FileInfo Dim Fi1 As FileInfo Dim DirInfo2 As DirectoryInfo Dim FileInfos2() As FileInfo Dim Fi2 As FileInfo '----------------------------- DirInfo1 = New DirectoryInfo("C:\TEMP\") FileInfos1 = DirInfo1.GetFiles("*.*") For Each Fi1 In FileInfos1 DR = DT.NewRow() DR(0) = "Guide" DR(1) = "" & Fi1.Name.ToString & "" DT.Rows.Add(DR) Next '----------------------------- DirInfo2 = New DirectoryInfo("c:\temp\forms_radsql\") FileInfos2 = DirInfo2.GetFiles("*.*") For Each Fi2 In FileInfos2 DR = DT.NewRow() DR(0) = "Guide" DR(1) = Fi2.Name.ToString DT.Rows.Add(DR) Next DS.Tables.Add(DT) DV = New DataView(DS.Tables(0)) DV.Sort = "Filename ASC" Me.DataGrid1.DataSource = DV Me.DataGrid1.DataBind() End Sub