主题：生成word表的奖惩内容错误代码求改正

Dim pdr1 As DataRow = Nothing
Dim str1 As String = ""
For Each dr1 As DataRow In DataTables("奖惩表").Select("档案编号 = '" & Tables("人事档案基础信息").current("档案编号") & "'", "内容描述")
    If pdr1 IsNot Nothing Then
        If pdr1.IsNull("奖惩年度") OrElse pdr1.IsNull("类别") OrElse pdr1.IsNull("内容描述") OrElse pdr1.IsNull("奖惩单位") Then '如果数量或单价为空
            str1 &= ""
        Else
            str1 &= format(pdr1("奖惩年度"),"yyyy.MM") &" 考核评为"& pdr1("奖惩单位") &"奖励"& pdr1("类别")& "一次, 主要表现"& pdr1("内容描述") & chr(13)
           
        End If
    End If
   
    pdr1 = dr1
Next

If pdr1 IsNot Nothing Then
    If pdr1.IsNull("奖惩年度") OrElse pdr1.IsNull("类别") OrElse pdr1.IsNull("内容描述") OrElse pdr1.IsNull("奖惩单位") Then '如果数量或单价为空
        str1 &= "无"
    Else
        str1 &= format(pdr1("奖惩年度"), "yyyy.MM") &" 考核评为"&pdr1("奖惩单位")&"奖励" & pdr1("类别")&"一次, 主要表现"&  pdr1("内容描述")
    End If
   
End If
wrt.Replace("[奖惩年度][奖惩单位][类别][内容描述]",str1) '用代码计算出总的销售数量并替换模板中的合计标记

你做一个【独立窗口】，在代码开始的地方打开，在代码结束的地方关闭。窗口上显示你的提示。

参考这个 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73365&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=123048&skin=0