什么原因？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 什么原因？

共有1657人关注过本帖树形打印复制链接主题：什么原因？

cdwanghc

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

等级：幼狐帖子：88 积分：819 威望：0 精华：0 注册：2013/10/15 13:25:00

什么原因？

Post By：2018/5/3 13:49:00 [显示全部帖子]

请教下面这段代码问题出在哪里？

Dim S As String = DataTables("分组").GetComboListString("姓名","[组别]='华东'")

Dim Values() As String = S.split("|")

For N As Integer = 0 To Values.Length - 1

Output.Show(Values(N)) '这里可以执行

Tables("分组").filter="[CS]=Values(N)" '这里不能运行,显示Values()未定义

cdwanghc

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

等级：幼狐帖子：88 积分：819 威望：0 精华：0 注册：2013/10/15 13:25:00

Post By：2018/5/4 10:29:00 [显示全部帖子]

实际代码是：

Dim S As String = DataTables("分组").GetComboListString("姓名","[组别]='华东'")

Dim Values() As String = S.split("|")

For N As Integer = 0 To Values.Length - 1

Tables("任务").filter = "[姓名]='" & Values(N) & "'"

代码想做的事情：

根据“分组”表里的分组情况（人员分组会变动），在总表（“任务”表）中，筛选出每个人的工作任务明细，输出到excel中。

（每组一个excel工作簿，工作簿中，每一个人员对应一个工作表）

谢谢解答。

cdwanghc

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

等级：幼狐帖子：88 积分：819 威望：0 精华：0 注册：2013/10/15 13:25:00

Post By：2018/5/4 10:41:00 [显示全部帖子]

继续请教：

在excel工作簿的sheet1工作表中建立了模板。

现在要在工作簿中增加工作表。如何将sheet1中的模板复制到新增的工作表中？

试了add和insert，只能增加或插入一个空表。

主题：什么原因？