以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][小菜鸟求助]如何手动选择非连续多行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22638)

--  作者:bootroot
--  发布时间:2012/8/20 8:33:00
--  [求助][小菜鸟求助]如何手动选择非连续多行

各位大神在上啊。

 

excel中可以按住CTRL,手动选择非连续的多行,比如说1、5、7行。行数很少,条件不定,手动选择,不用筛选。

 

请问在万能FoxTable中,应该怎么操作啊。

 

 


--  作者:飞
--  发布时间:2012/8/20 8:51:00
--  
http://www.foxtable.com/help/topics/1776.htm
--  作者:bootroot
--  发布时间:2012/8/20 9:16:00
--  

非常感谢

 

可是我想根据我 选择的非连续多行 输出excel报表

 

勾选复选框好像不行

 

 


--  作者:狐狸爸爸
--  发布时间:2012/8/20 9:58:00
--  

可以自己编码:

 

http://www.foxtable.com/help/topics/1148.htm

 

只需稍微改一下,大概如此:

 

Dim dt As Table = Tables("订单")
Dim drs As List(of Row)  = dt.GetCheckedRows
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle \'新建一个样式
Style.BackColor = Color.Red \'样式的背景颜色设为红色
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 drs.Count - 1 \'填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = drs(r)(c)
    Next
Next
\'打开工作簿
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start

 


--  作者:bootroot
--  发布时间:2012/8/20 10:41:00
--  
非常感谢大神!!!
--  作者:sinbyu
--  发布时间:2012/8/20 19:52:00
--  
图片点击可在新窗口打开查看 众神归来