Dim N1 As Integer = e.Form.Controls("NF").value
Dim N2 As Integer = N1-1
Dim Y1 As Integer = e.Form.Controls("YF1").value
Dim Y2 As Integer = e.Form.Controls("YF2").value
Dim HZ1 As String = e.Form.Controls("ZNBM").value
DataTables("统计表").LoadFilter = "([年份] = '" & N1 & "' OR [年份] = '" & N2 & "') and [月份] >= '" & Y1 & "' and [月份] <= '" & Y2 & "'"
DataTables("统计表").Load
For Each dr As DataRow In DataTables("统计表").datarows
dr("部门") = DecryptText(dr("部门"),"a23","op#")
dr("职位") = DecryptText(dr("职位"),"a23","op#")
Next
DataTables("统计表").save()
Dim b As New SQLGroupTableBuilder("统计表1","统计表")
b.C
b.AddTable("统计表","部门编码","档案","部门编号") '添加统计表
b.Groups.AddDef("年份")
b.Groups.AddDef("月份")
b.Groups.AddDef(HZ1)
b.Groups.AddDef("职位")
b.Groups.AddDef("姓名")
b.Totals.AddDef("合计")
b.Filter ="(年份 = '" & N1 & "' OR 年份 = '" & N2 & "') and 月份 >= '" & Y1 & "' and 月份 <= '" & Y2 & "'"
b.Build()
提示以下错误
详细错误信息:
Base-64 字符串中的无效字符。