代码如下：

其中，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

运行结果：第一个照片显示正常，后续显示如下

  [@&评级表,墙体_照片&2,1,200,250]

前面有一个带方框的？，显示不出来，

版主看看什么原因