主题：[求助]这段打印代码出现以下错误，代码哪里出错了，弄了半天，弄不好，谢谢

不理解你的意思。红色代码，请用两列

Dim ls As List(Of String()) = Tables("工作汇报").DataTable.GetValues("本周工作完成情况|第二列", Tables("工作汇报").Filter,"序号")

Dim tm As String  = ProjectPath & "Attachments\工作情况汇报.doc"
Dim r As Row = Tables("工作汇报").Current
Dim fl As String ="\\hrw\data\军人事务局\周工作汇报\" & r("填报日期") & "-" & "工作情况汇报.doc"
Dim wrt As New WordReport(Tables("工作汇报"),tm,fl) '定义一个WordReport
Dim str1 As String = ""
Dim ls As List(Of String) = Tables("工作汇报").DataTable.GetValues("本周工作完成情况", Tables("工作汇报").Filter,"序号")
For i As Integer = 0 To ls.Count - 1
    Dim s As String = ls(i)
    Dim flag As String = vbcrlf & " "
    If i = ls.Count-1 Then
        flag = ""
    End If
   
    str1 &= s(0) & flag
   
Next
Dim str2 As String = ""
Dim ls2 As List(Of String) = Tables("工作汇报").DataTable.GetValues("下周工作安排", Tables("工作汇报").Filter,"序号")
For i As Integer = 0 To ls2.Count - 1
    Dim s As String = ls2(i)
    Dim flag As String = vbcrlf & " "
    If i = ls2.Count-1 Then
        flag = ""
    End If
   
    str2 &= s(0) & flag
Next

wrt.Replace("[列表]", str1)
wrt.Replace("[列表1]", str2)
wrt.Build() '生成报表
wrt.Show() '显示报表