我在窗口AfterLoad事件加入代码: If Vars("用户组") = "浏览员" e.Form.Controls ("产品目录录入"). Visible = False End If Dim cmd As New SQLCommand Dim dt As DataTable cmd.C cmd.CommandText = "SELECT DISTINCT 客户,机型,所属部分,图号 From 产品目录" dt = cmd.ExecuteReader() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildDataTree(dt, "","客户", "机型","所属部分","图号") Tables("产品目录").OpenView("车间主管") Tables("产品目录.产品工序").OpenView("车间主管") Tables("产品目录.产品工序.产品工艺").OpenView("车间主管") 怎么每次重新打开项目是,该代码报错,3个表都是动态加载数据,如删掉最后3条视图代码,能正常,如有操作过,重新打开窗口,也正常,不知问题出在哪里。谢谢
|