专家坐堂-在TopicBar中加入健康证统计情况，出现问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在TopicBar中加入健康证统计情况，出现问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166073)

--  作者：探狐
--  发布时间：2021/5/17 15:15:00
--  在TopicBar中加入健康证统计情况，出现问题
篮版：在TopicBar中加入健康证统计情况，报错，您帮我改改
Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("表A").Compute("Count(姓名)","健康证编号<>""" )
Dim cnt2 As Integer = DataTables("表A").Compute("Count(姓名)","健康证编号 = """)
Page = e.Form.Controls("TopicBar1").Pages.Add("健康证获取统计","健康证获取统计")
Page.Links.Add("已取得健康证","已取得健康证(" & cnt1 & ")" )
Page.Links.Add("未取得健康证","未取得健康证(" & cnt2 & ")" )

有编号记录的说明取得了，否则未取得

[此贴子已经被作者于2021/5/17 15:17:10编辑过]

--  作者：tommargq2
--  发布时间：2021/5/17 15:16:00
--

COMPUTE中空值用 IS NULL 或者两个单引号

双引号肯定是不行的

Dim Page As WinForm.TopicPage

Dim cnt1 As Integer = DataTables("表A").Compute("Count(姓名)","健康证编号<>\'\'" )

Dim cnt2 As Integer = DataTables("表A").Compute("Count(姓名)","健康证编号 = \'\'")

Page = e.Form.Controls("TopicBar1").Pages.Add("健康证获取统计","健康证获取统计")

Page.Links.Add("已取得健康证","已取得健康证(" & cnt1 & ")" )

Page.Links.Add("未取得健康证","未取得健康证(" & cnt2 & ")" )

--  作者：探狐
--  发布时间：2021/5/17 15:58:00
--
谢谢