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
上面代码 导出报表时怎样增加进度条