Foxtable(狐表) → 用户栏目 → 专家坐堂 → 升级到2014版本后出现问题


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

主题：升级到2014版本后出现问题
帅哥哟，离线，有人找我吗？
kunny
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1055 威望：0 精华：0 注册：2013/12/5 21:34:00 		升级到2014版本后出现问题  发帖心情 Post By：2014/3/4 9:50:00 [只看该作者]

升级到2014开发版本后，进入项目属性然后确认退出时，但是没有做其它更改，就蹦出如下错误，逐条检查没有发现任何问题，升级前是完全正常的。

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140304094759.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-3-4 9:49:57编辑过]
 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/3/4 9:50:00 [只看该作者]

贴出项目AfterOpenProject事件的代码看看。

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


加好友 发短信
等级：幼狐 帖子：139 积分：1055 威望：0 精华：0 注册：2013/12/5 21:34:00 		  发帖心情 Post By：2014/3/4 9:55:00 [只看该作者]

RibbonTabs("RB_System").Visible = False
RibbonTabs("RB_System").Enabled = False
RibbonTabs("RB_User").Enabled = False
RibbonTabs("RB_User").Visible = False
RibbonTabs("RB_User").Groups("User").Items("btnAItems").Enabled = False
RibbonTabs("RB_User").Groups("User").Items("mnuChartA").Enabled = False
RibbonTabs("RB_User").Groups("User").Items("mnuChartB").Enabled = False
RibbonTabs("RB_User").Groups("User").Items("mnuChartGW").Enabled = False
'RibbonTabs("RB_User").Groups("User").Items("mnuEmployees").Enabled = False
RibbonTabs("RB_User").Groups("User").Items("btnAItems").Visible = False
RibbonTabs("RB_User").Groups("User").Items("mnuChartA").Visible = False
RibbonTabs("RB_User").Groups("User").Items("mnuChartB").Visible = False
RibbonTabs("RB_User").Groups("User").Items("mnuChartGW").Visible = False
RibbonTabs("RB_User").Groups("Bonus").Items("mnuBonus").Visible = False
RibbonTabs("RB_User").Groups("Bonus").Items("mnuRank").Visible = False

'RibbonTabs("RB_User").Groups("User").Items("mnuEmployees").Visible = False
For Each tb As Table In Tables
    tb.Visible = False
    'tb.Visible = True
Next
Forms("frmLogin").Open

'显示所有者表格
For Each tb As Table In Tables
    If Not tb.Name.StartsWith("WND_") Then
        tb.Visible = True
    End If
Next
TableCaptionVisible = False
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return
End If
'RibbonTabs("BeesMain").Visible = True
'_UserGroup = "系统管理员"   '调试用
'Functions.Execute("HideOrShowTable","show")
If _UserGroup = "网点" Then
    Dim names() As String = _Username.Split("]")
    LoginBranchID = names(0).Substring(1)
    LoginBranchName = names(1)
    MainNodeCode = LoginBranchID
    MainNodename = LoginBranchName
Else
    LoginBranchID = MainNodeCode
    LoginBranchName = "无锡分行"
    RibbonTabs("RB_System").Visible = True
    RibbonTabs("RB_System").Enabled = True
    RibbonTabs("RB_User").Selected = True
    RibbonTabs("RB_User").Groups("User").Items("btnAItems").Enabled = True
    RibbonTabs("RB_User").Groups("User").Items("mnuChartA").Enabled = True
    RibbonTabs("RB_User").Groups("User").Items("mnuChartB").Enabled = True
    RibbonTabs("RB_User").Groups("User").Items("mnuChartGW").Enabled = True
    RibbonTabs("RB_User").Groups("Bonus").Items("mnuBonus").Visible = True
    RibbonTabs("RB_User").Groups("Bonus").Items("mnuRank").Visible = True
    RibbonTabs("RB_User").Groups("User").Items("btnAItems").Visible = True
    RibbonTabs("RB_User").Groups("User").Items("mnuChartA").Visible = True
    RibbonTabs("RB_User").Groups("User").Items("mnuChartB").Visible = True
    RibbonTabs("RB_User").Groups("User").Items("mnuChartGW").Visible = True
    RibbonTabs("RB_User").Groups("User").Items("mnuEmployees").Enabled = False
    RibbonTabs("RB_User").Groups("User").Items("mnuEmployees").Visible = False
End If

_MainNodeCodeLen = MainNodeCode.Length
If _UserGroup = "网点" Then
    _ProjectQueryString = "[BankCode] = '" & MainCode & "' And [Year] = '" & MainYear &  "' And [BranchID] = '" & MainNodeCode & "'"
    _Filter = "[BankCode] = '" & MainCode & "' And [BranchID] = '" & MainNodeCode & "'"
Else
    _ProjectQueryString = "[BankCode] = '" & MainCode & "' And [Year] = '" & MainYear &  "' And Substring(BranchID,1," & _MainNodeCodeLen & ") = '" & MainNodeCode & "' And [BranchID] <> '" & MainNodeCode & "'"
    _Filter = "[BankCode] = '" & MainCode & "' And Substring(BranchID,1," & _MainNodeCodeLen & ") = '" & MainNodeCode & "' And [BranchID] <> '" & MainNodeCode & "'"
End If
_QStrBYQ = "[BankCode] = '" & MainCode & "' And [Year] = '" & MainYear & "' And [Quarter] = '" & MainQuarter & "'"

StatusBar.Message1 = "当前登录用户为: " & _UserName
StatusBar.Message2 = "     今天是 : " & Date.Today
StatusBar.Message3 = MainName & "无锡分行 " & MainNodeName

RibbonTabs("RB_User").Enabled = True
RibbonTabs("RB_User").Visible = True
'设置各主窗口表的隐藏
Tables("base_branches").Cols("ClassCode").Combolist = DataTables("base_branch_class").GetComboListString("ClassName")
Dim dr As DataRow = DataTables("system").Find("[Parent] = '" & MainNodeCode & "' And [Name] = 'SysMainTables'")
If dr IsNot Nothing Then
    Dim mtl() As String = dr("Value").Split("#")
    Dim j As Integer = mtl.Length
    For i As Integer = 0 To j - 1
        Tables(mtl(i).Split("|")(0)).Cols(0).Visible = False
    Next
End If
'Functions.Execute("HideOrShowTable","hide")

'初始化临时表
DataTables("temp_TblA_ColsName").datarows.clear
Functions.Execute("InitFileTempTables")

DataTables("temp_TblRole_ColName").DataRows.Clear
For Each dt As Table In Tables
    If dt.Name.Contains("evaluate_B_AAA") Then
        Dim ci As Integer = dt.Cols.Count - 1
        For i As Integer = 0 To ci - 1
            If dt.Cols(i).IsNumeric And (Not dt.Cols(i).Name.Contains("zhl")) And dt.Cols(i).Name <> "_Identify" And dt.Cols(i).Name <> "ID" Then
                Dim ro As Row = Tables("temp_TblRole_ColName").AddNew
                ro("RoleCode") = dt.Cols(i).Name.SubString(0,5)
                ro("Name") = dt.Cols(i).Name
                ro("Items") = dt.Cols(i).Caption
            End If
        Next
    End If
Next

If _UserGroup = "网点" Then
    Forms("frmScoreTable").Open
    MainTable = Tables("WND_ScoreTable")
Else
    Forms("frmScorePartA").Open
    MainTable = Tables("WND_ScorePartA")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/4 9:56:00 [只看该作者]

呵呵,这样可不好看出问题来.


建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm

先找出是哪一行出错，然后分析原因，搞不定，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。
 回到顶部
帅哥哟，离线，有人找我吗？
kunny
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1055 威望：0 精华：0 注册：2013/12/5 21:34:00 		  发帖心情 Post By：2014/3/4 10:06:00 [只看该作者]

问题是找不出哪一行，逐条的方法看不到效果。
从第一行开始就报错，注释掉一行后，就变成下一行有错，以此类推，郁闷。 
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/4 10:07:00 [只看该作者]

第一行就报错,说明没有
RibbonTabs("RB_System") 这个功能组
 回到顶部
帅哥哟，离线，有人找我吗？
kunny
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1055 威望：0 精华：0 注册：2013/12/5 21:34:00 		  发帖心情 Post By：2014/3/4 10:26:00 [只看该作者]

逐行删除也是同样的问题，只要有一行语句就报错，除非把所有代码删掉。算了，还是想其它办法吧。

 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/3/4 10:50:00 [只看该作者]

很简单，说明就是没有这个功能区：RB_System

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/3/4 11:08:00 [只看该作者]

菜单不可以动态生成吗  你这样写太累了.

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2014/3/4 12:11:00 [只看该作者]

菜单怎么生成可以看看   http://www.foxtable.com/bbs/dispbbs.asp?boardid=23&id=47083&page=1&star=1

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