Dim dtb As New DataTableBuilder("全刀统计")
dtb.AddDef("全刀医师", Gettype(String), 16)
Dim prds As List(of String) = DataTables("患者信息").GetValues("手术类型")
For Each prd As String In prds
dtb.AddDef(prd & "_全刀台次", Gettype(Integer))
dtb.AddDef(prd & "_全刀费", Gettype(Double))
Next
Dim dt As DataTable = dtb.Build(True)
For Each cus As String In DataTables("患者信息").GetValues("全刀医师")
Dim dr As DataRow = dt.AddNew()
dr("全刀医师") = cus
For Each prd As String In prds
dr(prd & "_全刀台次") = DataTables("患者信息").Compute("Count(患者姓名)","全刀医师 = '" & cus & "' And [手术类型] = '" & prd & "'")
dr(prd & "_全刀费") = DataTables("患者信息").Compute("Sum(全刀手术费)","全刀医师 = '" & cus & "' And [手术类型] = '" & prd & "'")
Next
Next
Tables("工作量计_Table1").DataSource = dt
加好友 
发短信
Post By：2018/11/20 22:09:00 [显示全部帖子]
