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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  实现窗口的数据统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178261)

--  作者：有点灰3
--  发布时间：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
--  发布时间：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

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

--  作者：有点蓝
--  发布时间：2022/6/26 20:30:00
--
For Each pd As Boolean In DataTables("询价表").GetValues("传递报价")

http://www.foxtable.com/webhelp/topics/2747.htm

--  作者：有点灰3
--  发布时间：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
我想实现在窗口中能自动生成《询价表》中未进行传递报价的产品数量有哪些，并点击后能够筛选出相应的行看那块帮助或者能不能帮我改一下我想先实现一下能够统计出来未审核数就行   谢谢

--  作者：有点灰3
--  发布时间：2022/6/27 9:45:00
--

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

--  作者：cd_tdh
--  发布时间：2022/6/27 9:50:00
--
Dim cnt As Integer = DataTables("询价表").Compute("count(*)", "传递报价=\'" & pd & "\'" )

--  作者：有点蓝
--  发布时间：2022/6/27 11:12:00
--
逻辑列只有2种情况，没有必要遍历了

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

lnk = Page.Links.add("已完成询价","已完成询价")
    Dim cnt As Integer = DataTables("询价表").Compute("count（[_identify]）", "传递报价=true" )
    lnk.Text = lnk.Text & "(" & cnt & ")"

--  作者：有点灰3
--  发布时间：2022/6/27 12:11:00
--

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

还是提醒这个错误

--  作者：有点蓝
--  发布时间：2022/6/27 13:33:00
--
Dim cnt As Integer = DataTables("询价表").Compute("count(_identify)", "传递报价=false" )

Dim cnt As Integer = DataTables("询价表").Compute("count(传递报价)", "传递报价=false" )

--  作者：有点灰3
--  发布时间：2022/6/27 14:47:00
--

Dim pg As String = e.Page.Name
Tables("询价表").Filter = pg & "=\'" & e.Link.Name & "\'"

这个能不能再往下一级调用啊

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

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