В настоящее время у меня есть программа VB6, которая существенно считывает данные с листа Excel и выплевывает его в MSFlexGrid.VB6 - Как сделать многоуровневую сортировку с MSFlexGrid?
Ниже приведены данные листа Excel, которые считываются. Данные заполняются в столбце ввода для в левой половине таблицы.
http://www.dipzo.com/initial.PNG
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
Теперь это работает до определенной степени. Она сортирует данные от вхождений и выходов, а так:
Однако, вы можете увидеть, что она перепутала порядок первого столбца. Я хочу, чтобы данные сначала сортировались по входам, но для данных с одинаковым количеством вхождений я хочу, чтобы они отсортировались по операции. Кто-нибудь знает, как это сделать?