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

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

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

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()未定义

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/3 14:17: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) & "'"

cdwanghc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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工作簿，工作簿中，每一个人员对应一个工作表）

谢谢解答。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/4 10:36:00 [只看该作者]

那2楼的代码没问题，最后你saveexcel即可。

cdwanghc

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

加好友

发短信

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

Post By：2018/5/4 10:41:00 [只看该作者]

继续请教：

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

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/4 11:06:00 [只看该作者]

拷贝、粘贴？参考（sheet1、sheet2 拷贝到 sheet3 去）

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit

下一主题 >> << 上一主题

主题：什么原因？