标题：窗口AfterLoad代码提示出错

AfterLoad窗口代码
 

If  Vars("用户组") <> "录入员"  and  Vars("用户组") <> "管理员" and  Vars("用户组") <> "车间主管" and  Vars("用户组") <> "车床班长" and  Vars("用户组") <> "铣床班长" and  Vars("用户组") <> "普工班长" and  Vars("用户组") <> "加工中心班长"

    e.Form.Controls ("工序状态"). Visible = False

    e.Form.Controls ("工艺状态"). Visible = False

End If

If  Vars("用户组") <> "录入员"  and  Vars("用户组") <> "管理员" and  Vars("用户组") <> "车间主管"

    e.Form.Controls ("完工交货"). Visible = False

End If

e.Form.Controls("TreeView1").BuildDataTree("生产目录", "", "客户", "机型", "所属部分","图号")

Tables("生产目录").OpenView("车间主管")

Tables("生产目录.生产工序").OpenView("车间主管")

Tables("生产目录.生产工序.生产工艺").OpenView("车间主管")

Tables("生产目录.生产工序.生产工艺.日报表").OpenView("车间主管")

把红色删除正常，不知为什么

此主题相关图片如下：未命名.bmp

就这条不行，我改成：
   

Tables("生产工艺.日报表").OpenView("车间主管")  可以

 

Tables("生产工序.生产工艺.日报表").OpenView("车间主管")  不行
 

Tables("生产目录.生产工序.生产工艺.日报表").OpenView("车间主管")  不行

列类型我也查了，全对，不知是怎么回事。
 

  
 

 

很奇怪。
Return Tables("生产目录.生产工序.生产工艺.日报表")看看
要不传个简化版的文件

现在不报警了，是在表里多加了一些相互关联的数据，奇怪，我做的示范又不会，今天被这个搞的好狼狈，我进行数据重定向（内外部都有表，做好的就定向到外部了），结果差一点整过项目瘫痪，点错了表，因有一个登陆表属内部表，定到外部就不能登陆了，当时搞慌了，竟忘了灾难性恢复把那个表重定回来。结果看到桌面还有一个没关，就又重新（谨慎）选表定向，提示SQL中已有同名表，赶紧打开SQL管理器进行删除表（灾难就从这时开始），误删了一个表，结果搞了好半天，在重建表等，才没损失表中源代码。真是提心吊胆了。

你是虚惊一场，重定向时系统会自动备份，只需打开备份文件就ok了。

问题不是重定向，而是我第二次重定向时（用桌面还未关正在做的项目，重新保存），发现SQL中已有一些刚才定进去的表，这时就有重复了，我就采取删除SQL的重复表，结果错删除了一个表。我想这些代码都是东拼西凑来的，这一个多月都被逻辑关系和系统冲突高得晕晕的，因以前没玩过编程，又不懂英文，更不懂SQL，只是用了几年易表帮我处理一些数据管理的经验，从来就完蛋了。