s1 = iif(s1 > "", s1, "空")s2 = iif(s2 > "", s2, "空")
放在以下代码里的哪呢?
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 sum2 As Double = dt.Compute("Sum(实际正科)",Filter)
Dim sum3 As Double = dt.Compute("Sum(副科配备)",Filter)
Dim sum4 As Double = dt.Compute("Sum(实际副科)",Filter)
Dim s1 As String = dt.GetComboListString("正科职数空缺", filter).replace("|", ",").trim(",")
Dim s2 As String = dt.GetComboListString("正科职数备注", filter).replace("|", ",").trim(",")
Dim s3 As String = dt.GetComboListString("副科职数备注", filter).replace("|", ",").trim(",")
Dim s4 As String = dt.GetComboListString("副科职数备注", filter).replace("|", ",").trim(",")
e.Book.Marks("分组统计字符") = "单位:" & e.DataRow("单位名称") & " 正科配备:" & sum1 & " 实际正科:" & sum2 & " 正科空缺:" & s1 & " 正科备注:" & s2 & " 副科配备:" & sum3 & " 实际副科:" & sum4 & " 副科空缺:" & s3 & " 副科备注:" & s4
End Select