专家坐堂-报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 报错

存在问题：

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

TopicLinkClick代码

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