以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教:怎么样临时表不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135748)

--  作者:cxmxjwlmq
--  发布时间:2019/6/3 1:01:00
--  求教:怎么样临时表不显示

各位老师:生成一个临时表导出数据,但是不想让这个临时表显示!将build()属性改成true,提示找不到表:统计表1“

Dim b As New  GroupTableBuilder("统计表1",DataTables("部品质量管理"))
Dim t As DataTable
Dim s As Double
b.Groups.AddDef("部件名称")
b.Totals.AddDef("交检")
t = b.Build()
Dim dt As Table = Tables("统计表1")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
 Next
 For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
    For c As Integer = 0 To dt.Cols.Count -1
         Sheet(r +1, c).Value = dt.rows(r)(c)
     Next
 Next

 

请各位老师指教!怎样把临时表的数据导出但不显示临时表!

谢谢!


--  作者:有点甜
--  发布时间:2019/6/3 8:18:00
--  

加入代码

 

Tables("统计表1").visible = false


--  作者:cxmxjwlmq
--  发布时间:2019/6/3 10:49:00
--  

谢谢老师指教!