以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  完善专业报表代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153519)
--  作者：老鼠
--  发布时间：2020/8/13 22:22:00
--  完善专业报表代码
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为当前行的“认证照片”。
--  作者：有点蓝
--  发布时间：2020/8/13 22:40:00
--  
Dim t As Row = tables("表A").current