Foxtable(狐表) → 用户栏目 → 专家坐堂 → 给定关键字不在字典中


  共有9527人关注过本帖树形打印复制链接

主题：给定关键字不在字典中
帅哥哟，离线，有人找我吗？
seal51
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		给定关键字不在字典中  发帖心情 Post By：2021/7/6 11:15:00 [显示全部帖子]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.5.29.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
给定关键字不在字典中。

AfterOpenProject代码如下：


Forms("Main").open
Applicati
For Each t As Table In Tables
    t.Font=New Font("宋体",11,FontStyle.Regular)
Next
'------------------------------------------------------------------------------
If GetConfigValue("注册状态" & ComputerId,False) = False Then  '若是非注册状态
    Forms("注册窗口").open
End If
'------------------------------------------------------------------------------


Dim drs As New List(of DataRow)
With DataTables("库存明细表")
    For Each nm As String In .GetValues("产品ID", "产品ID is not null") '找出每个产品的第一行数据, 添加到集合drs中
        drs.Add(.Find("产品ID = '" & nm & "'", "[_SortKey]"))
    Next
    For Each r As DataRow In drs
        .DataCols("入库数量").RaiseDataColChanged(r) '重置每个产品的第一行
    Next
End With


'授权
If user.Type = UserTypeEnum.User Then
    Tables("授权表").Visible = False
End If
For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & user.name & "'")
    If dr.Isnull ("列名") Then
        Tables(dr("表名")).Visible = Not dr("不可见")
        Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
    Else
        Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
        Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/6 11:58:00 [显示全部帖子]

4台电脑，其他3台安装WIN10没有此提示，只有一台电脑安装WIN7的有这个提示

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/7 9:43:00 [显示全部帖子]

小白，不太会
是在命令窗口
For Each t As Table In Tables
    t.Font=New Font("宋体",11,FontStyle.Regular)
Next
MessageBox.Show()
然后执行，看跳出的对话框吗？
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/7 9:59:00 [显示全部帖子]

Forms("Main").open
msgbox(1)
Applicati
For Each t As Table In Tables
    t.Font=New Font("宋体",11,FontStyle.Regular)
Next
msgbox(2)

'------------------------------------------------------------------------------
If GetConfigValue("注册状态" & ComputerId,False) = False Then  '若是非注册状态
    Forms("注册窗口").open
End If
msgbox(3)
'------------------------------------------------------------------------------

Dim drs As New List(of DataRow)
With DataTables("库存明细表")
    For Each nm As String In .GetValues("产品ID", "产品ID is not null") '找出每个产品的第一行数据, 添加到集合drs中
        drs.Add(.Find("产品ID = '" & nm & "'", "[_SortKey]"))
    Next
    For Each r As DataRow In drs
        .DataCols("入库数量").RaiseDataColChanged(r) '重置每个产品的第一行
    Next
End With
msgbox(4)
DataTables("图纸进度表").DataCols("下图日期").RaiseDataColChanged()
msgbox(5)
DataTables("图纸进度表").DataCols("设计完成日期").RaiseDataColChanged()
msgbox(6)
DataTables("图纸进度表").DataCols("确认期1").RaiseDataColChanged()
msgbox(7)


If user.Type = UserTypeEnum.User Then
    Tables("授权表").Visible = False
End If
For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & user.name & "'")
    If dr.Isnull ("列名") Then
        Tables(dr("表名")).Visible = Not dr("不可见")
        Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
    Else
        Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
        Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
    End If
Next
msgbox(8)

复制到命令窗口，点击执行，返回的都是数字1,2,3,4,5,6,7,8
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/7 10:05:00 [显示全部帖子]

复制到AfterOpenProject事件里，点击确定，返回的都是数字1,2,3,4,5,6,7,8

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/7 10:16:00 [显示全部帖子]

没有

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/7 10:21:00 [显示全部帖子]

我的电脑打开没有提示，调试没有提示错误信息，是不是要到出问题的电脑上去调试呢？如果这样，出问题的电脑在外地，无法去调试哦

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/7 11:10:00 [显示全部帖子]

发布程序后在有问题的电脑打开，返回的都是数字1,2,3,4,5,6,7,8
打开程序后，点击任意按钮打开表的时候提示如下：


有关调用实时(JIT)调试而不是此对话框的详细信息，
请参见此消息的结尾。

************** 异常文本 **************
System.Collections.Generic.KeyNotFoundException: 给定关键字不在字典中。
   在 System.Collections.Generic.Dictionary`2.get_Item(TKey key)
   在 Foxtable.FormCollection.get_Item(String Name)
   在 Foxtable.FormCollection.get_ActiveForm()
   在 Foxtable.ik.oOOo0Oo.(Object A_0, RibbonEventArgs A_1)
   在 C1.Win.C1Ribbon.C1Ribbon.OnRibbonEvent(RibbonEventArgs e)
   在 C1.Win.C1Ribbon.C1Ribbon.C1.Win.C1Ribbon.IRibbonControl.RaiseRibbonEvent(b3 item, RibbonEventType eventType)
   在 C1.Win.C1Ribbon.RibbonGroup.f()
   在 C1.Win.C1Ribbon.dj.ae()
   在 C1.Win.C1Ribbon.dj.OnStateChanged(ElementFlags oldFlags)
   在 C1.Framework.Element.SetFlags(ElementFlags flags, Boolean value, Boolean notify)
   在 C1.Framework.Element.set_IsHot(Boolean value)
   在 C1.Framework.Element.OnMouseEnter(EventArgs e)
   在 C1.Framework.XView.CheckHover()
   在 C1.Framework.XView.OnMouseMove(MouseEventArgs e)
   在 System.Windows.Forms.Control.WmMouseMove(Message& m)
   在 System.Windows.Forms.Control.WndProc(Message& m)
   在 C1.Framework.ScrollableControl.WndProc(Message& m)
   在 C1.Win.C1Ribbon.C1Ribbon.WndProc(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   在 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** 已加载的程序集 **************
mscorlib
    程序集版本: 4.0.0.0
    Win32 版本: 4.8.4110.0 built by: NET48REL1LAST_B
    基本代码: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
Foxtable
    程序集版本: 2021.5.29.1
    Win32 版本: 2021.05.29.1
    基本代码: file:///D:/%E4%B8%96%E6%BA%90%E5%B7%A5%E4%BD%9C%E5%B9%B3%E5%8F%B0/%E9%87%87%E8%B4%AD/Publish/%E4%B8%96%E6%BA%90%E9%87%87%E8%B4%AD.exe
----------------------------------------
Foxtable.Lib
    程序集版本: 2021.4.20.1
    Win32 版本: 2021.04.20.1
    基本代码: file:///D:/%E4%B8%96%E6%BA%90%E5%B7%A5%E4%BD%9C%E5%B9%B3%E5%8F%B0/%E9%87%87%E8%B4%AD
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/8 12:45:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210708124344-515151.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1840 积分：13033 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/12 9:58:00 [显示全部帖子]

现在初步肯定问题处在网络不好，加载超时导致项目打不开， 能否有办法延长加载时间暂时打开项目使用，以后慢慢重新开发

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询