select dept_id,dept_name,upper_id from sa_dept_dict where upper_id =0
然后,在树型部件的“数据行双击事件”中,再写以下代码。
dim dt=树型部件1.DataTable
if 树型部件1.TreeList.FocusedNode.Nodes.Count=0 then
'加载选择节点的子数据。并填写到树型部件中,实现分层加载数据。
dim dt1=executeSelect("select dept_id,dept_name,upper_id from sa_dept_dict where upper_id="&树型部件1.GetFocusedNodeValue("DEPT_ID"))
for each dr in dt1.Rows
dt.Rows.Add(dr.ItemArray)
next
end if