Private Sub OrderBy() Try Dim OB As String If ComboBox1.Text = "ID" Then OB = "ID" ElseIf ComboBox1.Text = "Name" Then OB = "StudentName" ElseIf ComboBox1.Text = "Payment" Then OB = "Payment" ElseIf ComboBox1.Text = "Time" Then OB = "LessonTime" ElseIf ComboBox1.Text = "Date" Then OB = "LessonDate" End If Dim dt As New DataTable Dim ds As New DataSet ds.Tables.Add(dt) Dim da As New OleDbDataAdapter("select * from Tend order by " & OB & "", con) da.Fill(dt) Dim myrow As DataRow For Each myrow In dt.Rows ListView1.Items.Add(myrow.Item(0)) ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(1)) ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2)) ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3)) ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(4)) ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(5)) Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)