Foxtable(狐表)用户栏目专家坐堂 → 请教下


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

主题:请教下

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


加好友 发短信
等级:婴狐 帖子:17 积分:172 威望:0 精华:0 注册:2018/11/7 17:54:00
请教下  发帖心情 Post By:2018/11/11 17:18:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2222.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1111.jpg
图片点击可在新窗口打开查看
这个生成的打钩的情况,我代码应该有问题,不知道怎么改了,麻烦指教。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/11 18:47:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
'Dim rt As New prt.RenderTable() '定义一个表格对象


Dim tb As Table = Tables("ZDINFO.JZXINFO")
Dim ColNames As String() = New String(){"ZDNUM", "QDH","ZDH", "LEN", "JZXLB", "JZXWZ"}
'rt.Style.GridLines.All = New prt.Linedef(Color.red)
rt.CellStyle.Spacing.All = 1

 


rt.Style.GridLines.All = New prt.Linedef(Color.black)
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center

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

rt.CellStyle.Spacing.All = 1 '内容距离网格线1毫米
rt.cells(0,0).Text = "界址标示表" '设置第一行第一个单元格的内容

rt.cells(0,0).SpanCols = 19 '合并第一行前三个单元格
rt.cells(1,0).Text = "界址点号"
rt.Cells(1,0).SpanRows = 2 '

rt.cells(1,1).Text = "界标种类"
rt.Cells(1,1).SpanCols = 5'
rt.cells(2,1).Text = "钢钉"
rt.cells(2,2).Text = "水泥桩"
rt.cells(2,3).Text = "喷涂"
rt.Cells(1,6).SpanRows = 2

rt.cells(1,6).Text ="界址间距(m)"
rt.cells(1,7).SpanCols = 8

rt.cells(1,7).Text ="界址线类别"
rt.cells(2,7).Text="界址线"
rt.cells(2,8).Text="墙壁"
rt.cells(2,9).Text="屋檐"
rt.cells(2,10).Text="围墙"
rt.cells(2,11).Text="道路"
rt.cells(2,12).Text="沟渠"
rt.cells(2,13).Text="坎"
rt.cells(2,14).Text="两点连线"


rt.cells(1,15).Text="界址线位置"
rt.cells(1,15).SpanCols = 3
rt.cells(2,15).Text="内"
rt.cells(2,16).Text="中"
rt.cells(2,17).Text="外"

rt.cells(1,18).Text="说明"

 

 

 

 

Dim leibie As Integer
Dim weizhi As Integer
For Each r As Row In tb.Rows
    Select Case r("JZXLB")
        Case "界址线"
            leibie = 7
        Case "墙壁"
            leibie = 8
        Case "屋檐"
            leibie = 9
        Case "围墙"
            leibie = 10
        Case "道路"
            leibie = 11
        Case "沟渠"
            leibie = 12
        Case "坎"
            leibie = 13
        Case "两点连线"
            leibie = 14
        Case Else
            leibie = 14
    End Select
   
    Select Case r("JZXWZ")
        Case "内"
            weizhi = 15
        Case "中"
            weizhi = 16
        Case "外"
            weizhi = 17
        Case Else
            weizhi = 17
    End Select
   
   
    'rt.Cells(4,c).Text = ColNames(c)
    'rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth
    rt.Cells(3+r.Index, leibie).Text = "√"
    rt.Cells(3+r.Index, weizhi).Text = "√"
    rt.Cells(3+r.Index, 3).Text= "√"
    rt.Cells(3+r.Index, 0).Text = r("QDH")
    rt.Cells(3+r.Index, 6).Text = r("jzx_len")
   
   
   
Next

 

 

rt.RowGroups(0,3).Header = prt.TableHeaderEnum.All '前两行作为表头
'rt.RowGroups(0,2).Style.BackColor = Color.LightGray '前两行的颜色设为灰色

 

 


'rt.RowGroups(3,1).DataBinding.DataSource = BindTables("ZDINFO.JZXINFO")'
doc.Body.Children.Add(rt)
Doc.Preview() '预览报表


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


加好友 发短信
等级:婴狐 帖子:17 积分:172 威望:0 精华:0 注册:2018/11/7 17:54:00
  发帖心情 Post By:2018/11/11 21:18:00 [只看该作者]

谢谢了

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


加好友 发短信
等级:婴狐 帖子:17 积分:172 威望:0 精华:0 注册:2018/11/7 17:54:00
  发帖心情 Post By:2018/11/12 11:19:00 [只看该作者]

你好,设置专业报表中表格的线宽是多少,我生成的线宽很宽,但是word表格的线宽只有很少,另外,在什么地方可以查询你们报表中各个属性和对象的表以及参数设置

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/12 11:46:00 [只看该作者]

以下是引用happlau在2018/11/12 11:19:00的发言:
你好,设置专业报表中表格的线宽是多少,我生成的线宽很宽,但是word表格的线宽只有很少,另外,在什么地方可以查询你们报表中各个属性和对象的表以及参数设置

 

参考 http://www.foxtable.com/webhelp/scr/1200.htm

 

http://www.foxtable.com/webhelp/scr/1222.htm

 


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


加好友 发短信
等级:婴狐 帖子:17 积分:172 威望:0 精华:0 注册:2018/11/7 17:54:00
  发帖心情 Post By:2018/11/15 9:19:00 [只看该作者]

你好,获得ZDINFO.JZXINFO这个表的最大行数的代码或者属性是什么,谢谢了

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/15 9:21:00 [只看该作者]


 回到顶部