Dim trv As WinForm.TreeView =e.Form.Controls("TreeView1")trv.BuildTree("表A","机构名称|项目名称")
表A里面时间根据“登记时间”列来算。
另外刷新按钮可否让他自动刷新。