改成
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")tv.CreateTree("表A","第一列","\","","第一列,_Identify")