以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印模版设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176619)

--  作者:nuoyan89
--  发布时间:2022/4/20 12:46:00
--  打印模版设置
老师,附件的打印我选择多条,表格里只能显示一条内容,我想让表格显示我选择多少条就显示多少条,如图1,请帮忙看看,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加班申请单.xlsx


--  作者:有点蓝
--  发布时间:2022/4/20 13:34:00
--  
默认就是选择多少条就显示多少条的。

现在输出什么结果?实际需要什么结果?

--  作者:nuoyan89
--  发布时间:2022/4/20 16:28:00
--  
现在输出的是不管我选择多少条,都只显示一条,如图1,我实际需要像如图2一样的

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/4/20 16:36:00
--  
方法1、使用鼠标拖选需要打印的数据
2、使用代码输出报表,类似这种

Dim Proc As New Process
Dim lst As New List(of String)
For Each r As Row In Tables("表A").GetCheckedRows
    lst.add(r("_Identify"))
Next
If lst.count = 0 Then Return
Tables("表A").filter = "_Identify in (" &string.join(",",lst.toarray)  & ")"

Dim Book As New XLS.Book(ProjectPath & "Attachments\\表A模板.xlsx")
Dim fl As String = ProjectPath & "Reports\\表A.xlsx"
Book.Build()
Book.Save(fl)
Proc.File = fl
Proc.Start()


记得需要添加all标记:http://www.foxtable.com/webhelp/topics/0201.htm


--  作者:nuoyan89
--  发布时间:2022/4/21 13:26:00
--  
老师,还是不行
按钮代码:
Dim Proc As New Process
Dim lst As New List(of String)
For Each r As Row In Tables("日常考勤明细_操作工工时").GetCheckedRows
    lst.add(r("_Identify"))
Next
If lst.count = 0 Then Return
Tables("日常考勤明细_操作工工时").filter = "_Identify in (" &string.join(",",lst.toarray)  & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\加班申请单.xlsx")
Dim fl As String = ProjectPath & "Reports\\加班申请单.xlsx"
Book.Build()
Book.Save(fl)
Proc.File = fl
Proc.Start()

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/4/21 14:10:00
--  
all放到表名处

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:nuoyan89
--  发布时间:2022/4/21 17:47:00
--  
老师,能否帮忙看看,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点蓝
--  发布时间:2022/4/21 20:21:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加班申请单.zip