Foxtable(狐表)用户栏目专家坐堂 → 窗口按钮(产生EXCEL报表)时,实现依条件选择不同模版的代码写法?


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

主题:窗口按钮(产生EXCEL报表)时,实现依条件选择不同模版的代码写法?

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


加好友 发短信
等级:幼狐 帖子:160 积分:1453 威望:0 精华:0 注册:2016/3/24 19:00:00
窗口按钮(产生EXCEL报表)时,实现依条件选择不同模版的代码写法?  发帖心情 Post By:2023/4/25 21:17:00 [只看该作者]

蓝老师:
资料表有一列"使用单据"  想要在窗口按钮控件的click事件中实现
>不同"使用单据" 产生不同模版报表
>就是先判断所勾选的行如果 "使用单据"  是 "A单据" 就打印 A单据模版 .."B单据" 就打印 B单据模版...
请指导我怎样增加(修改)代码...谢谢!

现在代码如下:
Dim rs As list(Of Row) = Tables("项目总览表.试制策划").GetCheckedRows
If rs.count <= 0 Then
    msgbox("没有勾选")
    Return
Else
    MessageBox.Show("开启约需5-10秒钟,请勿重覆点击!")
    DataTables("试制策划").Save()
    DataTables("策划试制砂明细").Save()
    DataTables("策划制芯明细").Save()
End If

For Each r As Row In rs
    Dim Book As New XLS.Book(ProjectPath & "Attachments\试制策划单.xlsx") 
    Dim fl As String = "d:\BPM报表\" & r("使用单据") & "  " & r("项目名称") & "  " & r("单号") & ".xlsx" '保存的路径与档名
    r.Table.Position = r.Index '每一笔生成一档案
    Book.Build() '生成细节区
    Book.Save(fl) '保存文件
    Dim Proc As New Process '打开文件
    Proc.File = fl
    Proc.Start()
Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/26 8:39:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\试制策划单.xlsx") 
改为
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & r("使用单据") & ".xlsx") 

 回到顶部