Foxtable(狐表) → 用户栏目 → 专家坐堂 → Excel模板设计，根据勾选不同列打印


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

主题：Excel模板设计，根据勾选不同列打印
帅哥哟，离线，有人找我吗？
JPG7
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3682 威望：0 精华：0 注册：2014/4/28 18:50:00 		Excel模板设计，根据勾选不同列打印  发帖心情 Post By：2014/5/8 16:49:00 [只看该作者]

怎么根据勾选项目设置打印张数，并自动编号（比如说勾选四项4-1，4-2,4-3，4-4），并将个编号对应的物品名称填写到红色圈中


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

图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/5/8 17:01:00 [只看该作者]

看不明白你想实现什么效果.

 回到顶部
帅哥哟，离线，有人找我吗？
JPG7
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3682 威望：0 精华：0 注册：2014/4/28 18:50:00 		  发帖心情 Post By：2014/5/8 17:16:00 [只看该作者]

第一个单子勾选了两项“左扶”和“床”，就生成两张Excel报表，红圈之外的内容是一样的，红圈之内一张表是上边名称是“床”下边编号为“2-1”，,一张表是“左扶”编号为“2-2”
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/5/8 17:37:00 [只看该作者]

Dim cs() As String = {"左扶","单背","床","扶手箱","右扶"}
Dim count As Integer
For i As Integer = 0 To cs.Length-1
    If Tables("生产订单").current(cs(i)) Then
        count+=1
    End If
Next
For i As Integer = 0 To cs.Length-1
    Dim r As Row = Tables("生产订单").current
    If r(cs(i)) Then
        Dim Book As New XLS.Book(ProjectPath & "Attachments\包装说明.xls")
        Dim fl As String = ProjectPath & "Reports\" & r("订单编号") & "-" & cs(i) & ".xls"
        Dim Sheet As XLS.Sheet = Book.Sheets(1)
        Sheet(7,5).Value=cs(i)
        Sheet(8,5).Value= count & "件(" & count & "-" & (i+1) & ")"
        
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
    End If
Next

代码如上
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/5/8 17:58:00 [只看该作者]

 如下，需要临时表。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
JPG7
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3682 威望：0 精华：0 注册：2014/4/28 18:50:00 		回复：（有点甜） 如下，需要临时表。 ...  发帖心情 Post By：2014/5/9 9:57:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
JPG7
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3682 威望：0 精华：0 注册：2014/4/28 18:50:00 		回复：（Bin）Dim cs() As String = {"左扶","单背","...  发帖心情 Post By：2014/5/9 9:58:00 [只看该作者]

我再测试一下，还没太明白
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05908 秒, 6 次数据查询