Foxtable(狐表)用户栏目专家坐堂 → 报表


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

主题:报表

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/14 15:50:00 [显示全部帖子]

 设置一下行的高度

 

    Rows = tbl.DataTable.Select("[单位名称] = '" & region(1) & "'and [班级] ='" & region(3) &  "'and [年级代码] ='" & region(2) &  "'and [考试名称] ='" & region(0) & "'")
    For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内
        rt.Cells(0,c).Text = ColNames(c) '列名作为标题
        rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        rt.Cells(0,c+2).Text = ColNames(c)
        Dim han As Integer = Math.Floor(Rows.count/2)-1
        For r As Integer = 0 To Rows.Count -1

            If Rows.Count < 10 Then

                rt.rows(r).height = 10

            End If
            If r<= han
                rt.Cells(r+1,c).Text = Rows(r)(ColNames(c))
            Else
                rt.Cells(r-han,c+2).Text = Rows(r)(ColNames(c))
            End If
        Next
    Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/14 20:39:00 [显示全部帖子]

 我测试没问题,请上传实例测试。

 回到顶部