此主题相关图片如下:无标题_20240604.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2024-6/2024640171028791.png)
老师,像上面照片的数据,要如何做成照片下面的统计表,代码应该 怎么改。
Dim tbCj As Table = Tables(e.Form.Name & "_TabProjectSchedule_Cj")
Dim b As New CrossTableBuilder("Cj1", dt)
b.HGroups.AddDef("负责人") '添加客户列用于水平分组
b.HGroups.AddDef("年周") '添加客户列用于水平分组
b.VGroups.AddDef("异常分类", "异常分类_{0}") '添加产品列用于垂直分组
b.VGroups.AddDef("达成") '添加产品列用于垂直分组
b.Totals.AddDef("sl") '添加数量列用于统计
tbcj.DataSource = b.BuildDataSource