2020年5月25日 星期一

vb.net 使用 array [Use Array] 


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
        Dim nums(lvw.Items.Count - 1) As Integer
        Dim iLp As Integer

        For iLp = 0 To lvw.Items.Count - 1
            nums(iLp) = CType(lvw.Items(iLp).Text, Integer)
        Next iLp

        Array.Sort(nums)

        lvw.Items.Clear()

        Dim lvwi As ListViewItem

        For iLp = 0 To nums.GetUpperBound(0)
            lvwi = lvw.Items.Add(nums(iLp))
            lvwi.SubItems.Add(DR.Item("COLUMN_NAME").ToString)
            lvw.Items.Add(nums(iLp))
        Next iLp
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)