0

からのTreeList読みがありList(Of LedgerAccountEntry)()ます。

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

これらは関連する部分だけです。さらに情報が必要な場合はお知らせください。

結果は子ノードのないフラット ツリーです。ID が存在し、正しく返されていることを確認しました。

4

1 に答える 1

1

これはParentLedgerAccountSys、フィールドとして使用しているためです。ParentLedgerAccountSysプロパティに変換するか、フィールドを表す別のプロパティを追加する必要がありますParentLedgerAccountSys。
次に例を示します。

Public Class LedgerAccountEntry
    Public Property LedgerAccountSys As Integer
    'Public ParentLedgerAccountSys As Integer <-- Here is field.
    Public Property ParentLedgerAccountSys As Integer '<-- Here is property instead of field.
    '
    '
    ' ETC
End Class
于 2015-08-26T06:25:25.857 に答える