У меня есть TreeList
с List(Of LedgerAccountEntry)()
.DevExpress TreeList не отображает дочерние узлы и отображается как корневые узлы вместо
Public Class LedgerAccountEntry
Public Property LedgerAccountSys() As Integer
Public ParentLedgerAccountSys As Integer
'
'
' ETC
End Class
В виде нагрузки:
tlLedgerAccounts.ParentFieldName = "ParentLedgerAccountSys"
tlLedgerAccounts.KeyFieldName = "LedgerAccountSys"
tlLedgerAccounts.RootValue = -1
Позже:
While bla
entry.LedgerAccountSys = rstAccounts("LedgerAccountSys").Value
entry.ParentLedgerAccountSys = IIf(rstAccounts("ParentLedgerAccountSys").Value Is DBNull.Value, -1, rstAccounts("ParentLedgerAccountSys").Value)
lst.add(entry)
End While
tlLedgerAccounts.DataSource = lst
Это только соответствующие части. Пожалуйста, дайте мне знать, если вам нужна дополнительная информация.
В результате получается плоское дерево без дочерних узлов, я проверил, что идентификаторы существуют и вернутся правильно.
Wow, что на самом деле работал, спасибо миллион! –