主题：[求助]控件代码执行报错，求解！

此主题相关图片如下：捕获3.png


此主题相关图片如下：捕获2.png

代码如下：

Dim nd As String = e.Form.Controls("ComboBox1").Text
Dim sd As String = e.Form.Controls("ComboBox2").Text
Dim Doc As New  PrintDoc          '定义一个报表对象
Dim rt As prt.RenderText          '定义一个文本对象
Dim rm As new  prt.RenderImage       '定义一个图片对象
For Each t As DataRow In DataTables("生存认证").Select("年度 = '" & nd & "' or 归属时期 = '" & sd & "'")              '条件定义图片
    rt = new prt.RenderText           '确认定义一个文本对象
    rt.text = "生存认证资料_" &"姓名:" & t("姓名") & "    认证年度:" & t("年度") & "    归属时期:" & t("归属时期")   '设置文本对象内容
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center                   '设置文本对象水平居中
    rt.Style.Fontsize = 16        '设置字体大小为16号
    Doc.Body.Children.Add(rt)
    rm = new prt.RenderImage              '确认定义一个图片对象
    rm.Width = "100%Parent"         '设置图片尺寸为容器(页面)尺寸
    rm.Height = "85%Parent"
    rm.image = getimage(ProjectPath & "attachments/" & t("生存认证图片"))   '设置图片
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center                '图片居中显示
    rm.Style.Borders.All = new prt.LineDef(0.3,Color.red)           '设置红色边框线
    rm.Style.Spacing.Bottom = 8         '设置图片垂直对齐位置为靠底8mm
    rm.BreakAfter = prt.BreakEnum.Page
    Doc.Body.Children.Add(rm)      '将图片对象加入报表
Next
Doc.Preview()        '预览报表内容

这段代码不应该有问题。

 

请上传一个具体的可以测试的出错的实例。

总的数据包发不上来，报服务器错误。现在只能发基础数据包了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

估计是文档容量太大造成的。

 

 

你3楼的例子，单独测试，是否报错？我测试可以正常生成的。

你好！我单独测试也不报错了。但还是有问题没有解决，就是它是打印所有的数据行了。而不是筛选出来的数据行。

前面的报错的问题，绝对是容量太大造成的报错问题。就是附件图片信息容量太大。

 

什么意思？没有按照下面红色代码筛选？你的条件是or，是不是要改成and？

 

For Each t As DataRow In DataTables("生存认证").Select("年度 = '" & nd & "' and 归属时期 = '" & sd & "'") 

 

你出错的项目上传到百度云，然后分享链接出来测试。