Foxtable(狐表)用户栏目专家坐堂 → 这个垂直分组列有啥问题了为啥加了2个 ,但是没有分层


  共有4401人关注过本帖树形打印复制链接

主题:这个垂直分组列有啥问题了为啥加了2个 ,但是没有分层

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111419 积分:567171 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/20 13:27:00 [显示全部帖子]

这样试试

''获取统计控件的值
Dim chuiZhi As String = e.Form.Controls("chuiZhi").text
Dim chuiZhi1 As String = e.Form.Controls("chuiZhi1").text
If chuiZhi Is Nothing  Then
    e.Form.Controls("chuiZhi").Error="请选择垂直分组列"
    Return
Else If chuiZhi = chuiZhi1 Then
    e.Form.Controls("chuiZhi1").Error="垂直分组列1和2不允许重复"
    Return
Else
   chuiZhi = chuiZhi.Replace(" ","")
   chuiZhi1 = chuiZhi.Replace(" ","")
End If

Dim b As New CrossTableBuilder("统计表1", DataTables("时间节点_Table1"))
b.HGroups.AddDef("离退休单位") '添加单位列用于水平分组
If chuiZhi1 = "" Then
   b.VGroups.AddDef(chuiZhi,chuiZhi & "_{0}" ) '添加垂直分组
Else
   b.VGroups.AddDef(chuiZhi) '添加垂直分组
   b.VGroups.AddDef(chuiZhi1) '添加垂直分组
End If

……


 回到顶部