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 & ")" )