我有这个: my Form
我正在尝试按ID(列表框1)或类型(列表框2)或客户端(列表框3)对列表框进行排序
所以,我正在尝试对其中一个列表框进行排序:
Public Sub SortListBox(ByVal listBox As ListBox)
Dim TempList1 As New List(Of String)
Dim i As Integer
'For Each LI In listBox.Items
For i = 0 To listBox.Items.Count - 1
TempList1.Add(listBox.Items(i))
Next
TempList1.Sort()
listBox.DataSource = TempList1
End Sub
然后我只是从像这样的laber_click事件中调用这个子:
Private Sub Label25_Click(sender As Object, e As EventArgs) Handles Label25.Click
SortListBox(ListBox2)
End Sub
问题是其他列表框因为ID已更改且数据不匹配而停止有意义。
所以,我的问题是:我如何对此进行排序,就像我在excel中那样,将订购的商品扩展到其他列表框?
希望你能理解。 谢谢!