专业报表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1762人关注过本帖树形打印复制链接主题：专业报表问题

lin98

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

专业报表问题 发帖心情

Post By：2024/3/25 8:57:00 [只看该作者]

此主题相关图片如下：图打印.jpg

此主题相关图片如下：图片打印-1.jpg

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111410 积分：567120 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/25 9:00:00 [只看该作者]

1、http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=142398

2、http://www.foxtable.com/webhelp/topics/1181.htm

3、http://www.foxtable.com/webhelp/topics/1179.htm、http://www.foxtable.com/webhelp/topics/1183.htm

lin98

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：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

加好友

发短信

等级：超级版主帖子：111410 积分：567120 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/25 9:05:00 [只看该作者]

2、http://www.foxtable.com/webhelp/topics/2717.htm

3、http://www.foxtable.com/webhelp/topics/1183.htm

lin98

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：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

加好友

发短信

等级：超级版主帖子：111410 积分：567120 威望：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

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：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 & "书法"

Doc.Preview() '预览报表

[此贴子已经被作者于2024/3/25 11:56:28编辑过]

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111410 积分：567120 威望：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

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：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

加好友

发短信

等级：超级版主帖子：111410 积分：567120 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/25 13:29:00 [只看该作者]

Dim img As image = getImage(fls(0))

编程基础：http://www.foxtable.com/webhelp/topics/0217.htm

下一主题 >> << 上一主题

主题：专业报表问题