[求助]发布后提示“给定关键字不在字典中” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]发布后提示“给定关键字不在字典中”

共有2735人关注过本帖树形打印复制链接主题：[求助]发布后提示“给定关键字不在字典中”

天一生水

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]发布后提示“给定关键字不在字典中” 发帖心情

Post By：2019/1/16 14:12:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：12.jpg

图片点击可在新窗口打开查看此主题相关图片如下：11.jpg

发布前项目窗口运行正常，发布后的项目打开窗口会报错，其中的TimerTick代码：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    Select Case nd.Level
        Case 0   '组节点
            nd.Ic
        Case 1   '用户名节点
            Dim name As String = nd.parentNode.name & "." & nd.Name
            If name <> user.group & "." & user.Name Then
                Dim bd As QQBuddy = QQClient.Buddies(name)
                If bd.Online Then
                    nd.Ic
                Else
                    nd.Ic
                End If
            Else
                nd.Ic
            End If
    End Select
Next

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/16 14:40:00 [只看该作者]

弹出各个值看看

Case 1   '用户名节点
    Dim name As String = nd.parentNode.name & "." & nd.Name
    If name <> user.group & "." & user.Name Then
msgbox(name)
msgbox(QQClient.Buddies.Contains(name))
        Dim bd As QQBuddy = QQClient.Buddies(name)