Я нашел решение так быстро. Вы должны изменить свойство 'Children', вот так:
treeviewitem my_tvi
if Not IsValid(ids_childrens) then
ids_childrens = CREATE datastore
ids_childrens.DataObject = 'my_dw'
ids_childrens.SetTransObject(SQLCA)
end if
num_children = ids_childrens.Retrieve(long(some_pk))
if num_children <= 0 then
my_tvi.children = false
else
my_tvi.children = true
end if