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

甜哥，蓝老师：

这段代码的错误在哪里？调整多次，生成的word表单“奖惩情况”栏，得不到没有正确结果，实例传上去，帮我看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.zip

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("奖惩单位") =False  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("奖惩单位") =False  Then '如果数量或单价为空
str1 &= "无"
Else
    str1 &= format(pdr1("奖惩年度"), "yyyy.MM") &" 考核评为"&pdr1("奖惩单位")&"奖励" & pdr1("类别")&"一次, 主要表现"&  pdr1("内容描述")
End If

End If
wrt.Replace("[奖惩年度][奖惩单位][类别][内容描述]",str1) '用代码计算出总的销售数量并替换模板中的合计标记
wrt.Build() '生成报表
wrt.Show() '显示报表

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) '用代码计算出总的销售数量并替换模板中的合计标记

谢谢甜哥，我加了一个 =False ，前面的一大段等于不是空，哎，让人感觉是在执行

甜老师，执行这段代码时间大概需要好多秒，怎么加一个进度条

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

我试一下

甜哥，用您说的方法，感觉不是很好，还是有假死的样子，加上进度条后，进度条不动，

在论坛上也看了几天，没有任何进展

用Marquee模式，也是不显示，有没有办法做得更专业些

参考这个 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