| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]写错表事件导致整个项目不能打开，有什么办法可以解决？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171443) |
| -- 作者：13568406997 -- 发布时间：2021/8/30 14:49:00 -- [求助]写错表事件导致整个项目不能打开，有什么办法可以解决？ If e.Table.Current Is Nothing Then \'如果Current为Nothing Return \'则返回 End If Dim rw As Row = e.Table.Current If rw Is Nothing Then Return \'则返回 End If If rw("清单号")="" Then Return \'则返回 End If SystemReady = False
\'messagebox.show(rw("清单号")) If Tables("订单物品临时表").Current("产品号")="" Then Return \'messagebox.show(2) If Tables("订单唯一码表").findrow("[清单号]=\'" & Tables("订单物品临时表").Current("清单号") & "\'")=-1 Then Return \'messagebox.show(3) If Tables("订单物品临时表").Rows.Count>0 Then Tables("订单唯一码表").filter="[清单号]=\'" & Tables("订单物品临时表").Current("清单号") & "\'" SystemReady = True 上面的代码复制到了AfterSelChang事件中，结果整个崩溃，项目再也打不开了，有什么办法可以复活？修改了好多，没有备份 |
| -- 作者：有点蓝 -- 发布时间：2021/8/30 14:55:00 -- 灾难恢复：http://www.foxtable.com/webhelp/scr/1057.htm
按住Ctrl键打开项目，用开发者登录，输入密码后，先按住Ctrl键，再点击确定，一直到项目打开再松开Ctrl键 |
| -- 作者：13568406997 -- 发布时间：2021/8/30 14:59:00 -- 恩，打开了，谢谢 |