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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在TopicBar中加入健康证统计情况，出现问题

共有2947人关注过本帖树形打印复制链接主题：在TopicBar中加入健康证统计情况，出现问题

探狐

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

等级：婴狐帖子：37 积分：390 威望：0 精华：0 注册：2021/4/26 11:27:00

在TopicBar中加入健康证统计情况，出现问题 发帖心情

Post By：2021/5/17 15:15:00 [只看该作者]

篮版：在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

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

等级：幼狐帖子：57 积分：443 威望：0 精华：0 注册：2021/5/12 16:59:00

Post By：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 & ")" )

探狐

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

等级：婴狐帖子：37 积分：390 威望：0 精华：0 注册：2021/4/26 11:27:00

Post By：2021/5/17 15:58:00 [只看该作者]

谢谢

主题：在TopicBar中加入健康证统计情况，出现问题