Иерархический flex из кода - возможно ли?

Возможно ли Hierarchical flex сделать Hierarchical run-time.
Т е наполнить приблизительно так:
1
11,12,13,14
2
21,22,23
3
31,38

где 2-значные цифры есть следующий уровень иерархии
В help я нашел только о SHAPE Query и связанных обектах

Спасибо

Думаю, что это так.
Этот элемент требует иерархического объекта
Recordset.

0

Посмотри статью в MSDN Q196029, там все что тебе нужно.

Элемент FlexGrid требует иерархического рекордсета.
Но такой рекордсет невозможно открыть без конструкции SHAPE.
Данный объект можно изобразить так:
Recordset
SubRecordset
SubRecordset
То есть, данные подобъекта связываются с данными главного
таким образом:

три ряда цифр:
Главный рекордсет - 1,2.
Первый подрекордсет - 11,12,13,21,22,23.
Второй подрекордсет - 111,112,121,122,131,132,211,212,221,222, 231,232.

1
11, 12, 13
111,112. 121,122. 131,132.
2
21, 22, 23
212,211. 221,222. 231,232.
где данные подобъекта делятся между соответствующими
им записями высшего рекордсета.

FlexGrid автоматически распределяет данные так, что пользователь
наглядно видит иерархию (открывающиеся подмножества записей
со значками «+»).

Так выглядит конструкция SHAPE:
'SHAPE {SELECT ExamenID, Name FROM tblExamen} AS Examen APPEND ({SELECT PeopleID, FirstName & '' '' & LastName AS FullName, Passport, City & '' '' & Address AS FullAddress, Telephon, `E-Mail`, Examen FROM tblPeoples} AS Peoples RELATE ''ExamenID'' TO ''Examen'') AS Peoples'

Для облегчения построения данных конструкций можно использовать,
например DataEnvironment объект VB-ка.

Как видно из примера, подобные вещи можно делать и в Run Time.
Но открытие рекордсета обычным способом приведёт к ошибке
так, как резервированные слова шейп конструкций не являются
операторами SQL. По этому следующее выражение ошибочно:

Public Sub PrintData(PrintTo As PrintDataEnum)
Dim strSQL As String
Dim rsReport As New ADODB.RecordSet

strSQL = 'SHAPE {SELECT ExamenID, Name FROM tblExamen} AS Examen APPEND
({SELECT PeopleID, FirstName & '' '' & LastName AS FullName, Passport, City &
'' '' & Address AS FullAddress, Telephon'
strSQL = strSQL & ', `E-Mail`, Examen FROM tblPeoples} AS Peoples RELATE
''ExamenID'' TO ''Examen'') AS Peoples'

strCNN2 = 'Data Source=' & App.Path & 'ProjectDB.mdbata '
strCNN2 = strCNN2 & 'Provider=Microsoft.Jet.OLEDB.3.51'

With rsReport ''Main recordset.
.ActiveConnection = strCNN2
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Source = strSQL
.Open
End With
…
End sub

Открывать иерархические рекордсеты нужно при помощи соединения
(connection), провайдером данных которого является MSDataShape.

Public Sub PrintData(PrintTo As PrintDataEnum)
Dim strSQL As String ‘SQL statment.
Dim rsReport As New ADODB.RecordSet
Dim cnnAdo As ADODB.Connection ‘Data connection.
Dim strCNN2 As String ‘Connection string.

strSQL = 'SHAPE {SELECT ExamenID, Name FROM tblExamen} AS Examen APPEND
({SELECT PeopleID, FirstName & '' '' & LastName AS FullName, Passport, City & '' '' &
Address AS FullAddress, Telephon'
strSQL = strSQL & ', `E-Mail`, Examen FROM tblPeoples} AS Peoples RELATE
''ExamenID'' TO ''Examen'') AS Peoples'

Set cnnAdo = New ADODB.Connection

strCNN2 = 'Data Source=' & App.Path & 'ProjectDB.mdbata '
strCNN2 = strCNN2 & 'Provider=Microsoft.Jet.OLEDB.3.51'

With cnnAdo
.Provider = 'MSDataShape.1'
.Open strCNN2
End With

''Getting of hierarchical recordset.
With rsReport ''Main recordset.
.ActiveConnection = cnnAdo
.CursorLocation = adUseClien

0