以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]选择表区域  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87888)
--  作者：zcgmxf
--  发布时间：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
--  发布时间：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()
--  作者：大红袍
--  发布时间：2016/7/22 9:05:00
--  

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

 

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