Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师变量序号a=a+1放在哪里比较合适，现在不按顺序加数


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

主题：老师变量序号a=a+1放在哪里比较合适，现在不按顺序加数
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/9 22:11:00 [显示全部帖子]

截图表数据和预览结果看一下，什么地方有问题

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/9 22:29:00 [显示全部帖子]

1、
                   rt.Cells(r - i * prs + 1, c + 1).Text = tb.rows(r)(ColNames(c)) 
                End If 
                rt.Cells(r - i * prs + 1, c).Style.TextAlignHorz = prt.AlignHorzEnum.Center  
            Next
     a = a + 1 
        Next
    Next
    ra.Children.Add(rt) '将表格对象加入到报表中

2、
    If i = math.Ceiling(tb.Rows.Count / prs) - 1 Then'如果是最后一页
        For r As Integer = tb.Rows.Count To ( i + 1) * prs - 1 '补空行
            rt.Rows.Count = rt.Rows.Count + 1
            rt.Rows(rt.Rows.count - 1)(0).text = " "
        Next
    Else
        rx.BreakAfter = prt.BreakEnum.Page '否则换页
    End If
    
    If i < math.Ceiling(tb.Rows.Count / prs) - 1 Then
        rx.BreakAfter = prt.BreakEnum.Page
    End If
    doc.Body.Children.Add(ra)
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/9 22:54:00 [显示全部帖子]

1、
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Style.FontSize = 11 '大体大小为16磅
    rt.Rows(6).Style.TextAlignVert = prt.AlignVertEnum.Top
   
    For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内容
        If c = 0 Then
            rt.Cells(0, 0).Text = "序号" 
        End If 
        rt.Cells(0, c + 1).Text = ColNames(c) '列名作为标题 
        rt.Cells(0, c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
    Next    
        

        For r As Integer = i * prs To math.min(tb.Rows.Count - 1, ( i + 1) * prs - 1)
            For f As Integer = 0 To tb.Cols.Count 
                If f = 0 Then
                    rt.Cells(r - i * prs + 1, 0).Text = a
                Else
                    rt.Cells(r - i * prs + 1, f +1).Text = tb.rows(r)(f) 
                End If 
                rt.Cells(r - i * prs + 1, f).Style.TextAlignHorz = prt.AlignHorzEnum.Center  
            Next
     a = a + 1 
        Next

    ra.Children.Add(rt) '将表格对象加入到报表中

2、不已经设置为红色字了吗，自己比较一下自己的代码
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/10 8:30:00 [显示全部帖子]

电脑颜色显示有问题？


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询