以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]给定关键字不在字典中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116039)
--  作者：syjylyq
--  发布时间：2018/3/19 10:23:00
--  [求助]给定关键字不在字典中
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.3.9.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
给定关键字不在字典中。


Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return
End If
For Each tab As RibbonMenu.Tab In RibbonTabs
    tab.Visible = not tab.Visible
Next
TableCaptionVisible = False
MessageBox.Show(0)
ApplicationMenu.visible = False
MessageBox.Show(1)
Basemainform.Text = "计划管理辅助工具"
Forms("主界面").Open
MessageBox.Show(2)
Vars.Add("b1",Gettype(Boolean),False)
MessageBox.Show(3)
Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
MessageBox.Show(4)
MainTab.HotTrack = True
MessageBox.Show(5)
MainTab.CanCloseTabs = True
MessageBox.Show(6)
Dim FormTab As C1Command.C1DockingTab
MessageBox.Show(7)
FormTab = MainTab.TabPages(0).controls(0)
MessageBox.Show(8)
FormTab.HotTrack = True
MessageBox.Show(9)
FormTab.CanCloseTabs = False
MessageBox.Show(10)
FormTab.ShowCaption = False
MessageBox.Show(11)
FormTab.Alignment = System.Windows.Forms.TabAlignment.Top
MessageBox.Show(12)
FormTab.TextDirection = C1.Win.C1Command.TabTextDirectionEnum.Horizontal
MessageBox.Show(13)
DataTables("订单信息").Load
[此贴子已经被作者于2018/3/19 10:24:35编辑过]
--  作者：有点甜
--  发布时间：2018/3/19 10:44:00
--  

执行这个代码导致的报错吧？

 

Forms("用户登录").Open()

 

是否你窗口 AfterLoad 事件有错误代码？
--  作者：syjylyq
--  发布时间：2018/3/19 12:03:00
--  
我同事说昨天卡了一下，强行关闭之后就一直进不去了。
昨天之前都是好好的！

是不是数据出问题了？
--  作者：有点甜
--  发布时间：2018/3/19 12:15:00
--  
以下是引用syjylyq在2018/3/19 12:03:00的发言：
我同事说昨天卡了一下，强行关闭之后就一直进不去了。
昨天之前都是好好的！

是不是数据出问题了？

 

是afterOpenProject事件报错？你改成这样，弹出什么？

 

msgbox(123)

Forms("用户登录").Open()

msgbox(456)

msgbox(_UserName)
--  作者：syjylyq
--  发布时间：2018/3/19 13:31:00
--  
找到原因了，服务器出问题了