rt = New prt.RenderTable

tb = Tables(e.form.Name & "_样衣进度")

dx = tb.Current

If dx IsNot Nothing

    rm = New prt.RenderImage \'定义一个图片

    rm.Width = "10mm"

    rm.Height = "5mm"

    rm.Style.Spacing.Right = 1

    rm.Style.Spacing.left = 1

    rm.Style.Spacing.Top = 1

    rm.Style.Spacing.Bottom = 1

    rt.Cells(8,0).SpanCols = 3

    ra = rt.Cells(8,0).Area

    rm.Image= GetImage(ProjectPath & "RemoteFiles\\设计图片\\" & dx("效果图正面").Split("/")(2))

    ra.Children.Add(rm)

    rm = New prt.RenderImage \'定义一个图片

    rm.Width = "10mm"

    rm.Height = "5mm"

    rm.Style.Spacing.Right = 1

    rm.Style.Spacing.left = 1

    rm.Style.Spacing.Top = 1

    rm.Style.Spacing.Bottom = 1

    rt.Cells(8,2).SpanCols = 3

    ra = rt.Cells(8,2).Area

    \' rm.Image=GetImage(ProjectPath & "RemoteFiles\\设计图片\\" & dx("效果图背面").Split("/")(2))

    rm.Image=GetImage("888.jpg")

    ra.Children.Add(rm)

End If

rt.Rows(8).Height = rm.Height

doc.Body.Children.Add(rt)

第二张图片没有读取出来,是啥原因?