- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 统计问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132374)
-- 发布时间：2019/3/20 18:44:00
-- 统计问题
直接上代码：
Dim dtb As New DataTableBuilder("手术费用统计")
dtb.AddDef("手术医师", Gettype(String), 16)
Dim prds As List(of String) = DataTables("lbgl").GetValues("gmsslx")
For Each prd As String In prds
dtb.AddDef(prd & "_全刀费", Gettype(Double))
dtb.AddDef(prd & "_主刀费", Gettype(Double))
dtb.AddDef(prd & "_一助费", Gettype(Double))
Next
Dim dt As DataTable = dtb.Build(True)
For Each cus As String In DataTables("lbgl").GetValues("ssys","[ssfl] = \'冠脉介入\'")
Dim dr As DataRow = dt.AddNew()
dr("手术医师") = cus
For Each prd As String In prds
dr(prd & "_全刀费") = DataTables("ssxx").Compute("Sum(qdssf)","qdys = \'" & cus & "\' And [sslx] Like \'%" & prd & "%\'")
dr(prd & "_主刀费") = DataTables("ssxx").Compute("Sum(zdssf)","zdys = \'" & cus & "\' And [sslx] Like \'%" & prd & "%\'")
dr(prd & "_一助费") = DataTables("ssxx").Compute("Sum(yzssf)","dyzs = \'" & cus & "\' And [sslx] Like \'%" & prd & "%\'")
Next
Next
Tables("工作量计_Table1").DataSource = dt
不知道为什么会出现红圈的这一块统计 后面正常
求助 谢谢
此主题相关图片如下：微信截图_20190320184132.png
此主题相关图片如下：微信截图_20190320184132.png-- 发布时间：2019/3/20 22:00:00
--
Dim prds As List(of String) = DataTables("lbgl").GetValues("gmsslx")
改成
Dim prds As List(of String) = DataTables("lbgl").GetValues("gmsslx", "gmsslx is not null")