点出根目录下的"加载全部数据",数据就没有了,知道是下面的代码不对,但不知怎么去改。
Dim md As New SQLCommand
Dim dp As DataTable
md.CommandText = "SELECT DISTINCT 咨询作业_作业日期,咨询项目_委托人,咨询项目_一级名称 From {咨询项目登记表}"
dp = md.ExecuteReader()
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView3")
tv.BuildTree(dp,"咨询作业_作业日期|咨询项目_委托人|咨询项目_一级名称")
tv.Nodes.Insert("加载全部数据",0)
另想在节点上加上项目的个数,请赐教。
[此贴子已经被作者于2012-11-7 19:40:15编辑过]