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
dtb.Build()
For Each cus As String In DataTables("患者信息").GetValues("全刀医师")
Dim dr As DataRow = DataTables("医师工作量计").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 = dtb.BuildDataSource()
这段代码 可以 达到 新建一个临时表 而且统计数据无错 但是 绑定的窗口_Table1种 只显示 行名 和 列名 没有数据逐条显示
但是 我想实现 这个临时表 只在绑定的窗口_Table1种显示，不要生成一个临时表
怎么实现？谢谢大大
[此贴子已经被作者于2018/11/19 13:13:29编辑过]
加好友 
发短信
Post By：2018/11/19 13:03:00 [只看该作者]
