主题：怎么写WORD报表代码？

如果工资序列为专技或管理并连续工龄起算时间为空，则用专技模板，如果工资序列为专技或管理并连续工龄起算时间不为空，则用专技（有间断）模板；如果工资序列为工勤并连续工龄起算时间为空，则用工勤模板，如果工资序列为工勤并连续工龄起算时间不为空，则用工勤（有间断）模板。

老师，这是怎么回事？

此主题相关图片如下：qq图片20190614141937.png

已经删除了，只保留了第一行的，但又出现了这个错误提示？

此主题相关图片如下：qq图片20190617141913.png

已经删除了，只保留了第一行的，但又出现了这个错误提示？

甜老师，这段代码有问题吗？怎么点击按钮了没有反应？？？

 

Dim r As Row = Tables("退休人员信息").current
If (r("工资序列") = "专技" OrElse r("工资序列") = "管理") AndAlso r("连续工龄起算时间") IsNot Nothing Then
    Dim tm As String  = ProjectPath & "Attachments\专技doc" '指定模板文件
    Dim fl As String = ProjectPath & "Reports\退休制文\" & format(Date.Today,"yyyy-MM") & "\关于" & r("姓名") & "同志退休的通知.doc"
    Dim wrt As New WordReport(Tables("退休人员信息"),tm,fl) '定义一个WordReport
    wrt.Build() '逐行生成报表
    wrt.Show() '显示报表
ElseIf (r("工资序列") = "专技" OrElse r("工资序列") = "管理") AndAlso r("连续工龄起算时间") Is Nothing Then
    Dim tm1 As String  = ProjectPath & "Attachments\专技(间断).doc" '指定模板文件
    Dim fl1 As String = ProjectPath & "Reports\退休制文\" & format(Date.Today,"yyyy-MM") & "\关于" & r("姓名") & "同志退休的通知.doc"
    Dim wrt As New WordReport(Tables("退休人员信息"),tm1,fl1) '定义一个WordReport
    wrt.Build() '逐行生成报表
    wrt.Show() '显示报表
ElseIf r("工资序列") = "工勤" AndAlso r("连续工龄起算时间") IsNot Nothing Then
    Dim tm2 As String  = ProjectPath & "Attachments\工勤.doc" '指定模板文件
    Dim fl2 As String = ProjectPath & "Reports\退休制文\" & format(Date.Today,"yyyy-MM") & "\关于" & r("姓名") & "同志退休的通知.doc"
    Dim wrt As New WordReport(Tables("退休人员信息"),tm2,fl2) '定义一个WordReport
    wrt.Build() '逐行生成报表
    wrt.Show() '显示报表
ElseIf r("工资序列") = "工勤" AndAlso r("连续工龄起算时间") Is Nothing Then
    Dim tm3 As String  = ProjectPath & "Attachments\工勤(间断).doc" '指定模板文件
    Dim fl3 As String = ProjectPath & "Reports\退休制文\" & format(Date.Today,"yyyy-MM") & "\关于" & r("姓名") & "同志退休的通知.doc"
    Dim wrt As New WordReport(Tables("退休人员信息"),tm3,fl3) '定义一个WordReport
    wrt.Build() '逐行生成报表
    wrt.Show() '显示报表
End If