- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不按要求导出excel报表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132247)
-- 发布时间：2019/3/18 8:55:00
-- 不按要求导出excel报表
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的记录？
-- 发布时间：2019/3/18 21:55:00
--
翻老师抽空帮解答一下 谢谢
-- 发布时间：2019/3/18 21:57:00
--
模板里的表名称是什么？http://www.foxtable.com/webhelp/scr/2627.htm
-- 发布时间：2019/3/18 21:59:00
--
Tables("批量挂网登记表主窗口_Table1")
-- 发布时间：2019/3/18 22:00:00
--
此主题相关图片如下：201931711222577772.jpg
-- 发布时间：2019/3/18 22:37:00
--
代码看不出什么问题。上传具体实例看看
-- 发布时间：2019/3/19 11:36:00
--
那你在这里加上对应条件试试，如
book.sheets(0)(2,6).value = "<配送公司=\'" & Vals(i)(1) & "\' and 有无配送权=true>"