Foxtable(狐表)用户栏目专家坐堂 → [求助]选择表区域


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

主题:[求助]选择表区域

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


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助]选择表区域  发帖心情 Post By:2016/7/22 7:54:00 [只看该作者]

老师,选择表A 的区域时,用鼠标点击选择某列所有行 和用代码选择所有行 在数据引用时结果不同

 

打印预览代码:

        Dim Book As New XLS.Book(ProjectPath & "Attachments\出入库记录.xls")
        Dim fl As String = ProjectPath & "Reports\出入库记录.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()

 

用鼠标点击选择某列或全部表,打印预览就是选择的所有行,而用代码

 

        Dim n As Integer = Tables("狂苗接种记录_table2").Rows.Count-1
        Tables("狂苗接种记录_table2").Select(0,2,n,2)

选择的第三列的所有行,打印预览就只有第一行。

 

请指教。谢谢!


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/22 8:45:00 [只看该作者]

我用帮助的Execl报表例子测试没有问题

Dim n As Integer = Tables("员工").Rows.Count-1
Tables("员工").Select(0,2,n,2)

Dim Book As New XLS.Book(ProjectPath & "Attachments\资料卡.xls")
Dim fl As String = ProjectPath & "Reports\资料卡.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/22 9:05:00 [只看该作者]

1、你模板设置的表是这个表嘛? 狂苗接种记录_table2 ? 必须一致才行。

 

2、把表名改成对应的,不行,做实例发上来。


 回到顶部