此主题相关图片如下:1.png
此主题相关图片如下:2.png
老师,如何区分这两个表,交叉统计表来源于普通表,而不能在交叉统计表上进行交叉统计 ,如何判断当前这个表是交叉 统计表而不是普通表?
''获取统计控件的值
Dim chuiZhi As String = e.Form.Controls("chuiZhi").Value
If chuiZhi Is Nothing Then
e.Form.Controls("chuiZhi").Error="请选择垂直分组列"
Return
Else
chuiZhi = chuiZhi.Replace(" ","")
End If
Dim b As New CrossTableBuilder("统计表1", DataTables("时间节点_Table1"))
b.HGroups.AddDef("离退休单位") '添加单位列用于水平分组
b.VGroups.AddDef(chuiZhi,chuiZhi & "_{0}" ) '添加垂直分组
b.Totals.AddDef(chuiZhi, AggregateEnum.Count) '添加用于统计
b.HorizontalTotal = True '水平方向生成汇总
b.VerticalTotal = True '垂直方向生成汇总
b.Build
Tables("时间节点_Table1").DataSource = DataTables("统计表1")
''设置表格居中
For Each c As Col In Tables("时间节点_Table1").Cols
c.TextAlign = TextAlignEnum.Center
Next
''使得按钮点完后,不要再是选定色
e.form.controls("Table1").Select