Foxtable(狐表)用户栏目专家坐堂 → 不按要求导出excel报表


  共有2222人关注过本帖树形打印复制链接

主题:不按要求导出excel报表

帅哥哟,离线,有人找我吗?
蓝蚂蚁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7861 威望:0 精华:0 注册:2016/6/11 11:10:00
不按要求导出excel报表  发帖心情 Post By:2019/3/18 8:55:00 [只看该作者]

Dim d1 As Date=e.Form.controls("DateTimePicker1").value
If d1<>Nothing Then
    Dim t As Table = Tables("批量挂网登记表主窗口_Table1")
    Tables("批量挂网登记表主窗口_Table1").filter="(计划日期=#"& d1 &"# and 有无配送权=true)"
    Dim Vals As List(of String())
    Vals =t.DataTable.GetValues("计划编号|配送公司",t.Filter)
    For i As Integer = 0 To Vals.Count - 1
        Dim Book As New XLS.Book(ProjectPath & "Attachments\批量挂网登记表.xls")
        Dim fl As String = ProjectPath & "Reports\出库单"& Vals(i)(0) &"" & Vals(i)(1)  & ".xls"
        book.sheets(0)(2,6).value = "<配送公司='" & Vals(i)(1) & "'>"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
    Next    
Else
    MessageBox.Show("未填入批量导出的计划日期! ", "提示")
End If
出现的问题:批量导出报表时,没有按照这个条件:Tables("批量挂网登记表主窗口_Table1").filter="(计划日期=#"& d1 &"# and 有无配送权=true)"导出,表现为:有无配送权=true和有无配送权=false也一起导出了,查看了Tables("批量挂网登记表主窗口_Table1")的记录其有无配送权=false是没有的,请问老师为什么窗口表中没有无配送权=false,但导出的报表中却有这些=false的记录?

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7861 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2019/3/18 21:55:00 [只看该作者]

翻老师抽空帮解答一下 谢谢 

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/18 21:57:00 [只看该作者]

模板里的表名称是什么?http://www.foxtable.com/webhelp/scr/2627.htm

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7861 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2019/3/18 21:59:00 [只看该作者]

Tables("批量挂网登记表主窗口_Table1")

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7861 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2019/3/18 22:00:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:201931711222577772.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/18 22:37:00 [只看该作者]

代码看不出什么问题。上传具体实例看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/19 11:36:00 [只看该作者]

那你在这里加上对应条件试试,如

 

book.sheets(0)(2,6).value = "<配送公司='" & Vals(i)(1) & "' and 有无配送权=true>"


 回到顶部