存在问题：
1.在副本表里筛选报错，未找到列 [验收状态]，但表中确有此列名称也对。
2.副本表没有筛选
AfterLoad代码
Dim PageGZWX As WinForm.TopicPage
If user.group="工程部" Then
Dim gz1 As Integer = DataTables("工装维修").Compute("Count(维修接单时间)","维修状态 = '" & "1.1 待维修" & "'")
Dim gz2 As Integer = DataTables("工装维修").Compute("Count(维修接单时间)","维修状态= '" & "1.2 已修复" & "'")
PageGZWX = e.Form.Controls("TopicBar8").Pages.Add("维修状态","1.0 工装维修状态")
PageGZWX.Links.Add("1.1 待维修"," 1.1 待办理(" & gz1 & ") New" )
PageGZWX.Links.Add("1.2 已修复"," 1.2 已办理(" & gz2 & ")" )
End If
If user.group="品质部"
Dim gz4 As Integer = DataTables("工装维修").Compute("Count(验收接单时间)","验收状态= '" & "2.1 待验收" & "'")
Dim gz6 As Integer = DataTables("工装维修").Compute("Count(验收接单时间)","验收状态= '" & "2.2 已批准" & "'")
PageGZWX = e.Form.Controls("TopicBar8").Pages.Add("验收状态","2.0 工装验收状态")
PageGZWX.Links.Add("2.1 待验收"," 2.1 待验收(" & gz4 & ") New" )
PageGZWX.Links.Add("2.2 已批准"," 2.2 已办理(" & gz6 & ")" )
End If
Select Case e.link.name
Case "1.1 待维修"
Tables("流程主界面_Table5").filter= "维修状态 = '" & "1.1 待维修" & "'"
Forms("流程主界面").controls("TabControl7").SelectedIndex=6
Case "1.2 已修复"
Tables("流程主界面_Table5").filter= "维修状态= '" & "1.2 已修复" & "'"
Forms("流程主界面").controls("TabControl7").SelectedIndex=6
Case "2.1 待验收"
Tables("流程主界面_Table5").filter= "验收状态= '" & "2.1 待验收" & "'"
Forms("流程主界面").controls("TabControl7").SelectedIndex=6
Case "2.2 已批准"
Tables("流程主界面_Table5").filter= "验收状态= '" & "2.2 已批准" & "'"
Forms("流程主界面").controls("TabControl7").SelectedIndex=6
End Select
加好友 
发短信
Post By：2015/9/12 14:51:00 [显示全部帖子]
