VB6 - 如何使用 MSFlexGrid 进行多级排序？

Question

我目前有一个 VB6 程序，它主要从 Excel 工作表中读取数据并将其输出到 MSFlexGrid 中。

下面是读入的 Excel 工作表数据。数据填充到表格左半部分的出现列中。

_{（来源：dipzo.com）}

VB6 应用程序请阅读此内容将数据放入多维数组中，然后将其输入到 MSFlexGrid 对象中。 这是执行此操作的代码：

Private Sub GridSort(temp() As String)
fgData.Rows = UBound(temp)
x = 0
 Do While x < fgData.Rows
    fgData.Row = x
    fgData.Col = 0
    fgData.Text = temp(x, 0)
    fgData.Col = 1
    fgData.Text = temp(x, 1)
    x = x + 1
  Loop
  fgData.ColSel = 1
  fgData.Sort = flexSortGenericDescending
  x = 0
  Do While x < fgData.Rows
    fgData.Row = x
    fgData.Col = 0
    temp(x, 0) = fgData.Text
    fgData.Col = 1
    temp(x, 1) = fgData.Text
    x = x + 1
  Loop

End Sub

现在这在一定程度上有效。 它按出现和输出对数据进行排序，如下所示：

_{（来源：dipzo.com）}

但是，您可以看到它打乱了第一列的顺序。 我希望数据首先按出现次数排序，但对于出现次数相同的数据，我希望它们按操作排序。 有人知道如何实现这一目标吗？

Answer 1

MSFlexGrid 通过从左到右对列进行排序，并且始终以相同的顺序（降序/升序）对多列中的数据进行排序。 因此，您可以交换“发生”和“操作”列来实现您的目标。

另外，我在这里找到了一组很好的 MSFlexGrid 函数，而且还有一个用于多列的条目排序。 查找条目“对多列进行排序”。 没有测试过，但你可以尝试一下。