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


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

主题：专业报表问题
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		专业报表问题  发帖心情 Post By：2024/3/25 8:57:00 [只看该作者]


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

图片点击可在新窗口打开查看此主题相关图片如下：图片打印-1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/25 9:00:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/3/25 9:03:00 [只看该作者]

问题二：下面只能打印一个，没有打印上面图二张图，如何实现将二张或多张图打印？
rt.Cells(7, 0).Image = GetImage(CurRow("照片"))

问题三："●"，"〇"符号太小，如何调大？
Dim s As String = "爱好："
    Dim ah As String = rw("爱好")
    
'    msgbox(ah) '测试显示什么内容
    If ah.contains("书法") Then
        s = s & "●"
    Else
        s = s & "〇"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/25 9:05:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/3/25 10:00:00 [只看该作者]

上面网址个看过，理解能力比差，没看明白


问题二：下面只能打印一个，没有打印上面图二张图，如何实现将二张或多张图打印？
rt.Cells(7, 0).Image = GetImage(CurRow("照片"))

问题三："●"，"〇"符号太小，如何调大？
Dim s As String = "爱好："
    Dim ah As String = rw("爱好")
    
'    msgbox(ah) '测试显示什么内容
    If ah.contains("书法") Then
        s = s & "●"
    Else
        s = s & "〇"
上面网址：2单元格多行内容的处理，，图片列可以管理多个图片，3插入一个图标: "，没看出与打印或符号调大小的关系，符号调大小用字体调不了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/25 10:07:00 [只看该作者]

    Dim fls As List(of String)
    fls = CurRow.DataRow.Lines("照片")
rt.Cells(7, 0).Image = GetImage(fls(0))
rt.Cells(8, 0).Image = GetImage(fls(1))


Dim rpar As New prt.RenderParagraph() '定义一个段落对象
Dim f As New Font("宋体", 16, FontStyle.Bold) '定义一个同样但加粗的字体
rpar.Content.AddText("爱好：")
If ah.contains("书法") Then
rpar.Content.AddText("●", f)
else
rpar.Content.AddText("〇", f)
end if
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/3/25 10:39:00 [只看该作者]

3.执行后，空白，没有数据，如何解决？
Dim doc As New PrintDoc '定义一个报表
Dim tbl As Table = Tables("员工")

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

Dim rpar As New prt.RenderParagraph() '定义一个段落对象
    Dim f As New Font("宋体", 16, FontStyle.Bold) '定义一个同样但加粗的字体
    rpar.Content.AddText("爱好：")
    Dim ah As String = rw("爱好")
    If ah.contains("书法") Then
        rpar.Content.AddText("●", f)
    Else
        rpar.Content.AddText("〇", f)
    End If
'    rpar = rpar & "书法"
 

    
Next
Doc.Preview() '预览报表
[此贴子已经被作者于2024/3/25 11:56:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/25 10:55:00 [只看该作者]

rt.Cells(7, 0).RenderObject = rpar

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/3/25 11:54:00 [只看该作者]

  Dim fls As List(of String)
    fls = CurRow.DataRow.Lines("照片")
rt.Cells(7, 0).Image = GetImage(fls(0))
rt.Cells(8, 0).Image = GetImage(fls(1))

Dim txt As String = "我是水印文字"
Dim img As image = getImage(fls)
Dim bmp  = new bitmap(img.Width, img.Height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0) ‘绘制原图片’
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
Dim fnt As new Font("微软雅黑", 60, FontStyle.Bold) ‘水印文字字体
Dim size = g.MeasureString(txt, fnt)
g.TranslateTransform((img.width-size.width)/2, img.Height - size.height - 50) '设置文字的绘制起点
g.RotateTransform(-45) '逆时针旋转45度
Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(120, 177, 171, 171)) '水印文字颜色，120是透明度，范围0~255
g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))

报错，加不了
[此贴子已经被作者于2024/3/25 12:24:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/25 13:29:00 [只看该作者]

Dim img As image = getImage(fls(0))
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询