不会代码，如何设置导表条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不会代码，如何设置导表条件

共有2667人关注过本帖树形打印复制链接主题：不会代码，如何设置导表条件

岚风青蛙

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

加好友

发短信

等级：幼狐帖子：89 积分：673 威望：0 精华：0 注册：2019/1/30 13:16:00

不会代码，如何设置导表条件 发帖心情

Post By：2021/4/27 14:48:00 [只看该作者]

老师您好，请问一下，我想把数据库中其中一列＞0的数据按业务员导出EXCEL表，但我不会代码，应该如何设置条件，非常感谢

此主题相关图片如下：微信图片_20210427144138.jpg

[此贴子已经被作者于2021/4/27 14:49:30编辑过]

有点蓝

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

加好友

发短信

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

Post By：2021/4/27 14:56:00 [只看该作者]

不会就学。如果要一个业务员导出一个execl，只能通过代码处理。比如：

for each s as string in datatables("应收款5").getvalues(“业务员”)

tables("应收款5").filter = “业务员='" & s & "'”

Dim Book As New XLS.Book(ProjectPath & "Attachments\应收款5.xls")
Dim fl As String = ProjectPath & "Reports\应收款5_" & s & ".xls"
Book.Build() '生成细节区
Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) '保存工作簿