老师新年好
下面中奖金额列不显示
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("姓名", Gettype(String), 16)
dtb.AddDef("项目", Gettype(String), 16)
dtb.AddDef("购piao金额", Gettype(Integer))
dtb.AddDef("付款金额", Gettype(Integer))
dtb.AddDef("中奖金额", Gettype(Integer))
'dtb.AddDef("购piao金额", Gettype(Integer))
'dtb.AddDef("付款金额", Gettype(Double))
'dtb.AddDef("中奖金额", Gettype(Double))
dtb.Build()
Tables("打piao记录_Table1").DataSource = dtb.BuildDataSource()
For Each nm() As String In DataTables("打piao收付款记录").GetValues("姓名|项目")
Dim dr As DataRow = DataTables("打piao记录_Table1").AddNew()
'Dim dr As DataRow = DataTables("统计").AddNew()
dr("姓名") = nm(0)
dr("项目") = nm(1)
'dr("") = nm(2)
dr("购piao金额") = DataTables("打piao收付款记录").Compute("Sum(购piao金额)","姓名 = '" & nm(0) & "' And [项目] = '" & nm(1) & "'")
dr("付款金额") = DataTables("打piao收付款记录").Compute("Sum(付款金额)","姓名 = '" & nm(0) & "' And [项目] = '" & nm(1) & "'")
dr("中奖金额") = DataTables("打piao收付款记录").Compute("Sum(中奖金额)","姓名 = '" & nm(0) & "' And [项目] = '" & nm(1) & "'")
Next