主题：进度条

If e.Col.name="信息卡"then

    Dim dr As Row = Tables("客户").Current

    Dim tm As String  = ProjectPath & "Attachments\客户信息卡.doc" '指定模板文件

    Dim fl As String = ProjectPath & "Attachments" & "\" & "客户管理" & "\" & "客户信息卡" & "\"  & dr("部门") & dr("店面等级") & User.name & format(Date.today,"MM月") & "信息卡.doc"   '指定目标文件

    Dim wrt As New WordReport(Tables("客户"),tm,fl) '定义一个WordReport

    wrt.Build() '逐行生成报表

    wrt.Show() '显示报表

End If