请教如何将复选框选中的数据行输出word报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教如何将复选框选中的数据行输出word报表

共有2524人关注过本帖树形打印复制链接主题：请教如何将复选框选中的数据行输出word报表

521lp

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：23 积分：249 威望：0 精华：0 注册：2016/9/29 12:40:00

Post By：2016/11/8 14:49:00 [只看该作者]

蓝老师，对代码编写实在是不懂，下面代码会报错，能麻烦指教一下完整代码怎么写么？

Dim s As String="第一列"

Dim p As String = "([省市区县乡镇村街])"

Dim r As New System.Text.RegularExpressions.Regex(p)

Dim str = r.Split(s)

For Each a As String In str

Output.Show(a)

Dim fileName As String = ProjectPath & "Reports\" & str(2) & str(3) & "\" & r("第一列") & ".doc" '指定目标文件

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/8 15:01:00 [只看该作者]

Dim tm As String = ProjectPath & "Attachments\人员简历表.doc" '指定模板文件

Dim Sum As Integer

Dim p As String = "([省市区县乡镇村街])"

With Tables("员工资料")

If .TopPosition > -1 Then '如果选定区域包括数据行

For i As Integer = .TopPosition To .BottomPosition

Dim r As Row = .Rows(i)

Dim s As String=r("第一列")

Dim rg As New System.Text.RegularExpressions.Regex(p)

Dim str = rg.Split(s)

Dim fileName As String = ProjectPath & "Reports\" & str(2) & str(3) & "\" & r("第一列") & ".doc"

Dim wrt As New WordReport(Tables("员工资料"),tm,fileName) '定义一个WordReport

wrt.BuildOne(r)

wrt.quit

Sum = Sum + 1

End If

End With

新手先完整看看【开发指南】吧，还有视频教程：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

总数 12 上一页 1 2

主题：请教如何将复选框选中的数据行输出word报表