专门定义了一个打印报表的代码,获取照片列的照片数,按格式差到word里,
其他没有问题,第一个图片显示完全正常,后面出现了其他的字符。
代码如下:
其中,ln是照片列的文件数,例子是3个照片。
If ln >= 2 Then
Dim fstr As String = "[@&评级表," & str & "&0,1,200,250]"
For k As Integer = 1 To ln - 1
fstr = fstr & Chr(13) & Chr(10) & " [@&评级表," & str & "&" & k & ",1,200,250] "
Next
wrt.ReplaceOne("[@&评级表," & str & "&0,1,200,250]", fstr)
End If
运行结果:第一个照片显示正常,后续显示如下
[@&评级表,墙体_照片&1,1,200,250]
[@&评级表,墙体_照片&2,1,200,250]
前面有一个带方框的?,显示不出来,
版主看看什么原因