以下是引用ezilu在2018/11/20 16:29:00的发言：
谢大大，但是还是会显示一个临时表，可以用“new GroupDataTable”实现？这个好像不现实临时表
如果想不生成临时表，参考
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
[此贴子已经被作者于2018/11/20 17:43:20编辑过]
加好友 
发短信
Post By：2018/11/20 17:43:00 [显示全部帖子]
