数组排序 按照序号从小到大输出

rendiule01

一个 数组 Arr数据如下：

序号   字段名称     源 （此行在数组没有，取的列标题便于理解）
1      类型ID      Type
3     上级科目     TOP_KM
4     科目编码     KM_NO
5     科目名称     KM_NAME
2     层级         KM_ID
6     余额方向     JD
7      备注        BZ


现在我希望 该数组 按照 序号从小到大排序 遍历装入数组Brr里

序号   字段名称     源  （此行在数组没有，取的列标题便于理解）
1      类型ID      Type
2     层级         KM_ID
3     上级科目     TOP_KM
4     科目编码     KM_NO
5     科目名称     KM_NAME
6     余额方向     JD
7      备注        BZ

longwin

gwjkkkkk

参与一下。。。

rendiule01

gwjkkkkk 发表于 2024-10-27 11:41
参与一下。。。

列号：2,    标签：类型ID,    源：Type
列号：3,    标签：层级,    源：KM_ID
列号：4,    标签：上级科目,    源：TOP_KM
列号：5,    标签：科目编码,    源：KM_NO
列号：1,    标签：科目名称,    源：KM_NAME
列号：6,    标签：余额方向,    源：JD
列号：7,    标签：备注,    源：BZ

'为何 ArrayList.Add (stritm,strName,strSource) 不能二维数组吗


Private Sub Command7_Click()
    Dim frm As Form
    Dim ctl As Control
    Dim i As Long, j As Long
    Dim brr
   
    Dim arrlist As Object
    Set arrlist = CreateObject("System.Collections.ArrayList")
   
    ' 设置为当前活动窗体，或者指定窗体名称
    Set frm = Me.sfrList.Form
   
    ' 遍历窗体上的所有控件
    For Each ctl In frm.Controls
   
        If TypeName(ctl) <> "Label" Then
            ' 控件列号,标签,行来源
           i = i + 1
            stritm = CStr(ctl.ColumnOrder)
            strName = ctl.Controls(0).Caption
            strSource = ctl.ControlSource
            
            '为何 ArrayList.Add (stritm,strName,strSource) 不能二维数组吗
            '拼接成一维数组
            arrlist.Add stritm & "," & strName & "," & strSource
   
        End If
        arrlist.Sort
    Next ctl

    ReDim brr(1 To i)
    For j = 0 To arrlist.Count - 1
        Debug.Print arrlist(j)
        '拆分一维数组
        brr(j + 1) = Split(arrlist(j), ",")(1)
        SQL = SQL & "," & Split(arrlist(j), ",")(2)
    Next
    MsgBox "CG"
End Sub

今铭昔

JavaScript

cai2532

今铭昔 发表于 2024-10-27 13:35
JavaScript

这个代码在哪里输入的？怎么玩？

张小生

1. Sub test2()
   
2. Dim x%, y%, temp, temp1, temp2, brr
   
3. ar = Range("a2:c8")
   
4. For x = 1 To UBound(ar) - 1       '利用循环先排序
   
5.     For y = x + 1 To UBound(ar)
   
6.         If ar(x, 1) > ar(y, 1) Then
   
7.             temp = ar(x, 1): temp1 = ar(x, 2): temp2 = ar(x, 3)
   
8.             ar(x, 1) = ar(y, 1): ar(x, 2) = ar(y, 2): ar(x, 3) = ar(y, 3)
   
9.             ar(y, 1) = temp: ar(y, 2) = temp1: ar(y, 3) = temp2
   
10.         End If
    
11.     Next y
    
12. Next x
    
13. brr = ar  '把排序后的数组给数组brr，其实这里直接用ar就可以了，为了符合你的要求所以再用了一个brr
    
14. Range("e2").Resize(UBound(brr), 3) = brr '把数组brr返回到以单元格e2为顶端单元格的区域内
    
15. End Sub

复制代码

lizhipei78

VBA最快的就是放到表格中进行单元格排序，然后直接读取到新数组就是了，简单高效

今铭昔

cai2532 发表于 2024-10-27 15:23
这个代码在哪里输入的？怎么玩？

rendiule01

lizhipei78 发表于 2024-10-27 16:25
VBA最快的就是放到表格中进行单元格排序，然后直接读取到新数组就是了，简单高效

可 我不是在 Excel里用，是用在ACCESS里