Foxtable(狐表)用户栏目专家坐堂 → 报表的高度设置问题


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

主题:报表的高度设置问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/9 19:29:00 [显示全部帖子]

 上传个例子,或者贴出可测试的代码

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/10 13:57:00 [显示全部帖子]

这段代码,为什么要+3?

 

            rt.Cells(r + hd+3, cnt).Style.F   '设置字体
            rt.Cells(r + hd+3, cnt).Style.FontSize=10             '设置字号
            rt.Cells(r + hd+3, cnt).Style.Fontbold = False         '不设置加粗
            rt.Rows(r + hd+3).Height = tb.DefaultRowHeight/4  '设置行高
           
            If tb.Cols(c).IsNumeric And tb.Cols(c).Name Like "*行次*"=False And tb.Cols(c).Name Like "*序号*"=False Then
                If tb(r,c)=0 Then '如果是数值或日期列
                    rt.Cells(r + hd+3, cnt).Text =""
                Else
                    rt.Cells(r + hd+3, cnt).Text = format(tb(r,c),"#,###.00")
                End If
            Else
                rt.Cells(r + hd+3, cnt).Text = tb(r,c)
            End If


 回到顶部