- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]专业报表字符问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137496)
-- 发布时间：2019/7/8 8:31:00
-- [求助]专业报表字符问题
老师，下面的字符生成报表后变了，怎么办？谢谢！
表中的数据截图
此主题相关图片如下：qq图片20190708082741.png
生成报表后截图
此主题相关图片如下：qq图片20190708082655.png
-- 发布时间：2019/7/8 8:33:00
--
老师，下面这段代码合并的列不同显示的文字有差别，有几个字没有了，是怎么回事？这个表 一共十列 。谢谢！
rt1.Cells(t1+tt1+159+hn+ xcg,0).SpanCols = 10
rt1.Cells(t1+tt1+159+hn + xcg,0).SpanRows = 2
Dim ra94 As prt.RenderArea
ra94 = rt1.Cells(t1+tt1+159+hn + xcg,0).Area \'引用第一个单元格的容器.
Dim rx200 As New prt.RenderText
rx200.Text = "小 结："
rx200.Style.Font = New Font("宋体", 11, FontStyle.Bold)
rx200.x = "0"
rx200.y = "0"
ra94.Children.Add(rx200)
Dim rx201 As New prt.RenderText
Dim dfr As DataRow = DataTables("检验结果").Find("编号 = \'" & r("编号") & "\'")
If dfr IsNot Nothing Then
rx201.Text = dfr("血样_结果诊断")
Else
rx201.Text = ""
End If
rx201.x = "20"
rx201.y = "0"
ra94.Children.Add(rx201)
此主题相关图片如下：qq图片20190706120219.png
如果 rt1.Cells(t1+tt1+159+hn+ xcg,0).SpanCols = 9
此主题相关图片如下：qq图片20190706120339.png
-- 发布时间：2019/7/8 9:18:00
--
请新建项目，做个可以测试的实例发上来测试
-- 发布时间：2019/9/28 22:49:00
--
老师，如何禁用专业报表预览窗口的打印按钮？谢谢！
直接调用，非嵌入。
此主题相关图片如下：qq图片20190928224021.png
[此贴子已经被作者于2019/9/29 7:22:52编辑过]
-- 发布时间：2019/9/29 9:10:00
--
没有办法