- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Excel模板设计，根据勾选不同列打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50543)
-- 发布时间：2014/5/8 16:49:00
-- Excel模板设计，根据勾选不同列打印
怎么根据勾选项目设置打印张数，并自动编号（比如说勾选四项4-1，4-2,4-3，4-4），并将个编号对应的物品名称填写到红色圈中
此主题相关图片如下：12131.png
此主题相关图片如下：11.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2014/5/8 17:01:00
--
看不明白你想实现什么效果.
-- 发布时间：2014/5/8 17:16:00
--
第一个单子勾选了两项“左扶”和“床”，就生成两张Excel报表，红圈之外的内容是一样的，红圈之内一张表是上边名称是“床”下边编号为“2-1”，,一张表是“左扶”编号为“2-2”
-- 发布时间：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
代码如上
-- 发布时间：2014/5/8 17:58:00
--
如下，需要临时表。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2014/5/9 9:57:00
-- 回复：（有点甜） 如下，需要临时表。 ...
-- 发布时间：2014/5/9 9:58:00
-- 回复：（Bin）Dim cs() As String = {"左扶","单背","...
我再测试一下，还没太明白