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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 实现窗口的数据统计

共有4829人关注过本帖树形打印复制链接主题：实现窗口的数据统计

有点灰3

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

加好友

发短信

等级：幼狐帖子：65 积分：477 威望：0 精华：0 注册：2022/6/8 15:28:00

实现窗口的数据统计 发帖心情

Post By：2022/6/26 10:19:00 [显示全部帖子]

Dim Page As WinForm.TopicPage
Page = Forms("主窗口").Controls("TopicBar1").Pages("询价管理")
For Each pd As String In DataTables("询价表").GetValues("传递报价", [传递报价] = False )
    Dim lnk As WinForm.TopicLink = Page.Links.add(pd, pd)
    Dim cnt As Integer = DataTables("询价表").Compute("count（[_identify]）", "询价管理='" & pd & "'" )
    lnk.Text = lnk.Text & "(" & cnt & ")"
Next

我在Getvalues 中不声明“传递报价”了吗

此主题相关图片如下：631.png

有点灰3

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

加好友

发短信

等级：幼狐帖子：65 积分：477 威望：0 精华：0 注册：2022/6/8 15:28:00

Post By：2022/6/26 10:54:00 [显示全部帖子]

Dim Page As WinForm.TopicPage
Page = Forms("主窗口").Controls("TopicBar1").Pages("询价管理")
For Each pd As Boolean In DataTables("询价表").GetValues("传递报价", False )
    Dim lnk As WinForm.TopicLink = Page.Links.add(pd, pd)
    Dim cnt As Integer = DataTables("询价表").Compute("count（[_identify]）", "询价管理='" & pd & "'" )
    lnk.Text = lnk.Text & "(" & cnt & ")"
Next

我又修改了一下现在不报警了但是也不运行不知道什么原因

有点灰3

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

加好友

发短信

等级：幼狐帖子：65 积分：477 威望：0 精华：0 注册：2022/6/8 15:28:00

Post By：2022/6/27 9:43:00 [显示全部帖子]

Dim Page As WinForm.TopicPage
Page = Forms("主窗口").Controls("TopicBar1").Pages("询价管理")
For Each pd As Boolean In DataTables("询价表").GetValues("传递报价")
    Dim lnk As WinForm.TopicLink = Page.Links.add("未完成询价",pd)
    Dim cnt As Integer = DataTables("询价表").Compute("count（[_identify]）", "传递报价='" & pd & "'" )
    lnk.Text = lnk.Text & "(" & cnt & ")"
Next

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

此主题相关图片如下：57.png
我想实现在窗口中能自动生成《询价表》中未进行传递报价的产品数量有哪些，并点击后能够筛选出相应的行看那块帮助或者能不能帮我改一下我想先实现一下能够统计出来未审核数就行谢谢