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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导航问题

共有2082人关注过本帖树形打印复制链接主题：导航问题

nxqtxwz

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

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2018/4/19 21:21:00 [只看该作者]

加在了下面这个位置，应该是运行到了这个循环体内了，为什么不执行With Tables("职工信息总表").Filter = "[性别] = '女' and [政治面貌] = '群众'"     这一语句呢，这一语句我在命令窗口执行是可以的。

Tables("职工信息总表").CloseRecordGrid()
'msgbox(e.page.name)
'msgbox(e.page.text)
Select Case e.Page.Text
    Case "职工信息"
        '        msgbox(e.link.Name)
        '       msgbox(e.link.Text)
        Select Case e.Link.Name
            Case "任教学科"
                With Tables("职工信息总表").Filter = "[性别] = '女' and [政治面貌] = '群众'"
                    msgbox(e.Link.Name)               （运行显示：任教学科，说明程序行动到这了。）
                End With
            Case "合并模式"

[此贴子已经被作者于2018/4/19 21:22:03编辑过]

有点甜

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

加好友

发短信

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

Post By：2018/4/19 21:24:00 [只看该作者]

你是不是搞错表名了？你可能看到的是窗口表，比如

Tables("窗口1_Table1").Filter = "[性别] = '女' and [政治面貌] = '群众'"

nxqtxwz

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

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2018/4/19 21:43:00 [只看该作者]

老师您好，麻烦您了。不好意思，“职工信息总表”就是项目中的表，没有窗口表。不知为什么就是不行呢。这是“导航窗口”中的TopicLinkClick事件代码。

For Each frm As Winform.Form In Forms
    If frm.Opened AndAlso frm.FormStyle = FormStyleEnum.独立 Then
        frm.Close()
    End If
Next
Select Case e.Page.Text
    Case "职工信息"
        Select Case e.Link.Name
            Case "任教学科"
               With Tables("职工信息总表").Filter = "[性别] = '女' and [政治面貌] = '群众'"
               msgbox(e.Link.Name)         此处运行结果：任教学科
                End With

        End Select
End Select

MainTable.Focus()
baseMainform.ResumeLayout

有点甜

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

加好友

发短信

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

Post By：2018/4/19 21:53:00 [只看该作者]

改成这样呢？

Tables("职工信息总表").Filter = "[性别] = '女' and [政治面貌] = '群众'"
msgbox(e.Link.Name)

或者

Tables("职工信息总表").Filter = "1=2"

下一主题 >> << 上一主题

总数 14 上一页 1 2

主题：导航问题