主题：大侠帮忙看看这段代码有问题没有

Dim tr As WinForm.TreeView = e.Form.Controls("结构部位")

tr.BuildTree("现场影像资料收集数据结构表", "单位工程|分部工程|单元工程")

Tables("影像资料汇总表").Cols("日期").AllowEdit=False

Tables("影像资料汇总表").Cols("编号").AllowEdit=False

Tables("影像资料汇总表").Cols("资料内容概述").AllowEdit=False

Tables("影像资料汇总表").Cols("提交人").AllowEdit=False

Tables("影像资料汇总表").Cols("部位编号").AllowEdit=False

Tables("影像资料汇总表").Cols("资料内容").AllowEdit=False

Tables("影像资料汇总表").Cols("资料内容").Visible=False

Tables("影像资料汇总表").Cols("资料内容概述").Visible=False

Dim fl As WinForm.FileManager = Tables("影像资料汇总表").Cols("资料内容").FileManager

fl.DeleteCommand.Visible = False

fl.ClearCommand.Visible = False

fl.AddFolderCommand.visible=False