生成的EXCEL模板叫非领导职位空缺 在该表的单元格插入<字符> 字符代表 原来竖名册中按照单位名称分类后,统计单位性质为机关的数量。 比如有四个机关 最后计数为4 如何修改
Select Case e.Book.TempLate
Case "非领导职位空缺"
Dim Filter As String = "单位名称 = '" & e.DataRow("单位名称") & "'"
Dim dt As DataTable = DataTables("竖名册")
Dim sum1 As Double = dt.Compute("Sum(单位性质)",Filter)
Dim s1 As String = dt.GetComboListString("单位性质", filter).replace("|", ",").trim(",")
e.Book.Marks("字符") = "单位:" & e.DataRow("单位名称") & sum1 & s1
End Select