Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
Dim t As DataRow
rm.Image = GetImage(ProjectFile & "Attachments/" & t("认证照片")) '设置图片
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.Height = "Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = False '禁止图片垂直拉伸
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览
以上是我按钮的代码请完善第3行代码，就是定义t为当前行的“认证照片”。
加好友 
发短信
Post By：2020/8/13 22:22:00 [显示全部帖子]
