直接上代码：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
加好友 
发短信
Post By：2019/3/20 18:44:00 [显示全部帖子]
