Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>This is what I have now.</p> <pre><code>&lt;!-- language: lang-vb--&gt; Dim d As New DataTable() Dim c As New DataColumn("Size") c.DataType = GetType(Integer) Dim c2 As New DataColumn("SizeInUnits") c2.DataType = GetType(String) d.Columns.Add(c) d.Columns.Add(c2) Dim strFileSize As String = "" Dim di As New IO.DirectoryInfo("C:\temp") Dim aryFi As IO.FileInfo() = di.GetFiles("*.*") For Each fi As IO.FileInfo In aryFi Dim r As DataRow = d.NewRow() r(0) = fi.Length r(1) = GetSizeInUnits(fi.Length) d.Rows.Add(r) Next d.DefaultView.Sort = "Size ASC" DataGridView1.DataSource = d DataGridView1.Columns(0).Visible = False 'New Code Here, Don't Auto Sort. We will sort the data ourselves in event 'DataGridView1_ColumnHeaderMouseClick. You will have to do some additional work 'to determin the sort direction. i.e. If Current Sort Order is ASC, the sort DESC 'and vice versa DataGridView1.Columns(1).SortMode = DataGridViewColumnSortMode.Programmatic Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick DataGridView1.Sort(DataGridView1.Columns(0), System.ComponentModel.ListSortDirection.Descending) End Sub Private Function GetSizeInUnits(ByVal size As Double) As String Dim sizeKB As String = "KB" Dim sizeMB As String = "MB" Dim sizeGB As String = "GB" If (size &lt; 1000000) Then Return size / 1000 &amp; sizeKB End If If (size &gt; 1000000 AndAlso size &lt; 1000000000) Then Return size / 1000000 &amp; sizeMB End If If (size &gt; 1000000000) Then Return size / 1000000000 &amp; sizeGB End If End Function </code></pre>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
    2. VO
      singulars
      1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload