Версия 3.0.82 Метод Content.Move (Страница 1 из 2)

Необходимо запрашивать и обновлять коллекцию!

set Objects = thisobject.Objects 
Objects.swap thisobject.objects(0), thisobject.objects(1) 
Objects.Update

Написал другую команду

ThisObject.Content.Swap ThisObject.Content(0), ThisObject.Content(1)
ThisObject.Content.Update

Все равно ничего не происходит

Ура, сработало

Может есть у кого готовая сортировка объектов по маске?

ThisObject.Content.Sort ThisObject.Content

При такой сортировке все проходит красиво, но например если наименование объектов идет так:
01 - абвгд
02 - абвгд
11- абвгд
100 - абвгд
то отсортирует как:
01- абвгд
100-абвгд
11-абвгд
02 - абвгд
или например:

1247/2
124711
1247/100
отсортирует
1247/1
1247/100
124711
1247/2

Прошу помочь в решении задачи

Вроде решил но через опу конечно же. Сделал массив из чисел по которым должна идти сортировка. Там где знаков в конце меньше трех дописал нули впереди.
Ну а дальше во время сортировки массива попутно делаю перестановку и объектов под темиже итеративными номерами.
Единственное сортировка вставками у меня кривая. Первый элемент массива считается отсортированным. Не могу догнать как сделать так чтобы сортировался и первый элемент

For i=1 To ThisObject.Content.Count-1
  newElement = ArrObjNoNSI(i)
  Set newObjElement = Thisobject.Objects(i)
  location=i-1
  Do While (location >= 1) and (ArrObjNoNSI(location) > newElement)
     ArrObjNoNSI(location+1) = ArrObjNoNSI(location) 'тут перестановка
     Coll.Swap Thisobject.Objects(location+1), Thisobject.Objects(location) 'переставляем объекты
     Coll.Update
     location=location-1
  Loop
  ArrObjNoNSI(location+1)=newElement 'тут перестановка
  Coll.Swap Thisobject.Objects(location+1), newObjElement
  Coll.Update
Next

ArrObjNoNSI - это массив изначально неотсортированых номеров взятых у объектов которые нужно сортировать.

При сортировке 5-10 объектов -все проходит довольно быстро. Если сортировать уже 150 объектов то TDMS вешается на полчаса

Подскажите пожалуйста как.
Сортировка вставками в моем случае как мне кажется оптимальнее. Список как правило уже отсортирован и в конец добавляется что-то новое что нужно вставить в нужное место.
На самом деле очень не хватает команды в контекстном меню "вставить между..."  или просто каким либо образом руками передвинуть на нужное место объект. Мне не надо каждый раз кучу объектов намешаных сортировать...

Если состав будет очень большим, ну скажем 1000 объектов и больше, то лучше предварительно одним запросом получить через выборку весь этот состав и обязательно то значение (или набор значений), по которым вы будете сортировать. Если состав у вас уже торчит (например, вы его получаете в событии ListBeforeShow), то выборка не нужна.

Дальше работаете с массивом Sheet - он статический и обрабатывать вы его будете в памяти. Это пригодится, если вы будете извлекать условия сортировки из атрибутов: при каждом обращении типа
content.item(i).Attributes("ID") будет идти запрос в базу. А Sheet.CellValue (i, j) - уже будет в памяти.

Не могу только догнать почему мне возращает 0 столбцов

Set query1245 = ThisApplication.CreateQuery
      query1245.AddCondition tdmQueryConditionObjectDef, "OBJECT_NSI_UKAZANIE_GTSS"
      query1245.AddCondition tdmQueryConditionAttribute, "1245", "ATTR_NSI_RAZDEL_UKAZANIA"
MsgBox query1247.Sheet.ColumnsCount 'Вернет 0. почему ?
MsgBox query1247.Sheet.RowsCount      'вернет правильно 272

по умолчанию CreateQuery не имеет столбцов (описание, статус и дата - это дефолтные столбцы) вам нужно в addcondition добавлять "+tdmQueryConditionVisible" для столбцов которые должны отображаться в результате запроса (Sheet)

Я имел ввиду, что на больших объемах данных исходно не сортированные объекты лучше всего сортировать не как  объекты в составе, а отображения этих объектов на массив. Пересортировав массив любым из подходящих способов, затем методом move в один проход его расставите в составе.

У описанного подхода есть явный минус - копирование в массив и обратно. Поэтому так имеет смысл сортировать именно неупорядоченные данные большого объема. Но если ваши составы небольшие - несколько сотен объектов - это лишний код. Сортируйте сразу объекты в составе, но Update применяйте только один раз,  используя объектные переменные для обращения к коллекциям типа Thisobject.Objects. Set objs = Thisobject.Objects и вперед. TDMS не загружает сущности без явного к ним обращения и каждый раз обращаясь к Thisobject.Objects(index) вы обращаетесь в базу данных за конкретным объектом, а не к объекту коллекции. При операции инициализации коллекции через переменную, вызовется конструктор и она будет создана полностью.

+tdmQueryConditionVisible помогло
Но чета я с утра видимо туплю...

Получил я допустим из временной выборки значение атрибута которое мне надо (порядок кстати по мере создания объекта). Закинул значения в массив и отсортировал как мне надо. А дальше то как отсортировать уже в дереве объекты?

Sub List_BeforeShow(Sheet)
If ThisObject.ObjectDefName = "OBJECT_NSI_UKAZANIA_GTSS" Then

Dim ArrObjNoNSI()
For i=0 To Sheet.RowsCount-1
  ReDim Preserve ArrObjNoNSI(i)
  If InStr (Sheet.CellValue(i,0),"П - ")=7 Then
      ArrObjNoNSI(i)= Replace (Sheet.CellValue(i,0), "/", "/0000000") '1247/1П -> 1247/00000001П
  ElseIf InStr (Sheet.CellValue(i,0),"П - ")=8 Then
      ArrObjNoNSI(i)= Replace (Sheet.CellValue(i,0), "/", "/000000")  '1247/10П -> 1247/00000010П
  ElseIf InStr (Sheet.CellValue(i,0),"П - ")=9 Then
      ArrObjNoNSI(i)= Replace (Sheet.CellValue(i,0), "/", "/00000")   '1247/100П -> 1247/00000100П
  ElseIf InStr (Sheet.CellValue(i,0),"П - ")=10 Then
      ArrObjNoNSI(i)= Replace (Sheet.CellValue(i,0), "/", "/0000")    '1247/1000П -> 1247/00001000П
  ElseIf InStr (Sheet.CellValue(i,0)," - ")=7 Then
      ArrObjNoNSI(i)= Replace (Sheet.CellValue(i,0), "/", "/000")     '1247/1 -> 1247/0001
  ElseIf InStr (Sheet.CellValue(i,0)," - ")=8 Then      
      ArrObjNoNSI(i)= Replace (Sheet.CellValue(i,0), "/", "/00")      '1247/10 -> 1247/0010
  ElseIf InStr (Sheet.CellValue(i,0)," - ")=9 or InStr (Sheet.CellValue(i,0),"А - ")=9 Then
      ArrObjNoNSI(i)= Replace (Sheet.CellValue(i,0), "/", "/0")       '1247/100  или 1247/100A -> 1247/0100 или 1247/0100А
  Else
      ArrObjNoNSI(i)= Sheet.CellValue(i,0)                            '1247/1000 -> 1247/1000
  End If
Next

' Сортировка вставками
key=0 
temp=0
i=0
Do While i<Sheet.RowsCount-1
  key=i+1
  temp=ArrObjNoNSI(key)
    j=i+1
    Do While j>0
      if (temp<ArrObjNoNSI(j-1)) Then
        ArrObjNoNSI(j)=ArrObjNoNSI(j-1)
        'ThisObject.Content.Move (j-1), (j)
        key=j-1
      End If
    j=j-1
    Loop
ArrObjNoNSI(key)=temp
i=i+1
Loop
For i=0 To Sheet.RowsCount-1
  MsgBox ArrObjNoNSI(i)
Next

End If
End Sub

Где влепить этот Move и с какими индексами недогоняю:) Массив ArrObjNoNSI сортируется правильно и быстро. Осталось дело за малым - переставить объекты в дереве и обновить... но тут не знаю как...

Если позволите, пара замечаний по коду.
Стоимость сортировки вставками - O(n^2). Если у вас частично отсортированные данные и их мало - это хороший выбор. Если данных много и они идут вразнобой, это жуткий тормоз.

У вас нет операции выхода из цикла кроме его нормального завершения, поэтому ReDim Preserve ArrObjNoNSI(i) надо вынести за тело цикла: ReDim Preserve ArrObjNoNSI(Sheet.RowsCount)

Вы в цикле много раз вычисляете две одинаковых функции InStr (Sheet.CellValue(i,0),"П - ") и  InStr (Sheet.CellValue(i,0)," - "). Посчитаете их один раз  ;), это в среднем по больнице будет быстрее.