Peen
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблема с реализацией задумки.
Есть ф-ция добавляющая строки в список,по какому то определенному критерию.В этих строках содержатся ФИО - номер - ....- деньги
Все представляется в html для выравнивания в колонках.
Задача состоит в сортьировке этого списка по ФИО
Загнать в массив и отсортировать
Ниже фун-ция добавления:
Function general(namemanager As String, res As Double, level As Integer, samelevel As Integer) As Double
Dim a As Integer
Dim B As Integer
Dim z As Double
Dim indexstart As Integer
Dim indexnumb As Integer
Dim flag As Integer
Dim f As Integer
flag = 0
a = estmanager(namemanager)
If a = 0 Then
B = indexemployee(namemanager)
general = 0
Else
indexstart = indexmanager(namemanager)
indexnumb = nummanager(namemanager)
For i = indexstart To (indexstart + indexnumb - 1)
If namemanager = Cells(i, 7) Then
flag = 1
Else: flag = 0
M = 0
End If
If flag <> 1 Then
If namemanager <> Cells(i, 7) Then
z = 0
W = infmanager(Cells(i, 7), z)
f = M
zatratimanager = c
End If
If level >= samelevel Then GoTo jump
strbody = strbody & "<tr><td>" & Cells(i, 7) & "</td><td>" & Cells(i, 11) & "</td><td>" & level + 1 & "</td><td>" & Cells(i, 25) & "$" & "</td><td>" & f & "</td><td>" & W & "$" & "</td></tr>"
' strbody = strbody & Cells(i, 7) & Cells(i, 11) & level + 1 & Cells(i, 25) & "$" & f & W & "$" & vbNewLine
jump:
kol = kol + 1
'End If
res = res + Cells(i, 25)
general = general(Cells(i, 7), res, level + 1, samelevel) + res
End If
Next i
End If
general = res
End Function |
