Foxtable(狐表)用户栏目专家坐堂 → [求助][小菜鸟求助]如何手动选择非连续多行


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

主题:[求助][小菜鸟求助]如何手动选择非连续多行

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


加好友 发短信
等级:婴狐 帖子:4 积分:97 威望:0 精华:0 注册:2012/8/16 12:21:00
[求助][小菜鸟求助]如何手动选择非连续多行  发帖心情 Post By:2012/8/20 8:33:00 [只看该作者]

各位大神在上啊。

 

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

 

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

 

 


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


加好友 发短信
等级:三尾狐 帖子:732 积分:5491 威望:0 精华:14 注册:2011/8/28 12:49:00
  发帖心情 Post By:2012/8/20 8:51:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:4 积分:97 威望:0 精华:0 注册:2012/8/16 12:21:00
  发帖心情 Post By:2012/8/20 9:16:00 [只看该作者]

非常感谢

 

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

 

勾选复选框好像不行

 

 


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:97 威望:0 精华:0 注册:2012/8/16 12:21:00
  发帖心情 Post By:2012/8/20 10:41:00 [只看该作者]

非常感谢大神!!!

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


加好友 发短信
等级:幼狐 帖子:137 积分:1137 威望:0 精华:0 注册:2012/5/23 21:50:00
  发帖心情 Post By:2012/8/20 19:52:00 [只看该作者]

图片点击可在新窗口打开查看 众神归来

 回到顶部