- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 报表模板 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193871)
-- 发布时间：2024/10/23 13:20:00
-- 报表模板
老师您好！
我有一个”生产计划明细表”，由此制作了一个“生产工艺流程卡”的模板。我的目的是，从生产计划明细表中用工作令号选择符合条件的记录，这些每一条记录中都用清单条码编码生成一个条形码，这样每一条记录的“生产工艺流程卡”上，都需要打印上条形码。最终的目的是，自动成批生成这些个生产工艺流程卡，并成批打印。为了解决这个问题，我建了一个窗口，写了代码。可是我的代码有两个问题：一是预览的模板中条码没有显示，二是成批打印没有实现。请老师给与指点，是我的思路问题还是代码问题。谢谢老师！
Dim Result As DialogResult
Dim b As WinForm.TextBox= e.Form.Controls("TextBox1")
\'b.BackColor = Color.Red
Dim gzh As String = b.Value
Dim Filter As String
Filter = "工作令号=\'" & gzh & "\'"
Tables("生产计划明细表").Filter = Filter
Dim mr As DataRow
\'mr = DataTables("生产计划明细表").Find("工作令号 = \'" & gzh & "\'")
\'Dim dat As String = cldate(mr("录入日期"))
Dim qdtm As String
Dim drs As List(Of DataRow)
drs = DataTables("生产计划明细表").S elect("[工作令号] = \'" & gzh & "\'")
Dim fl As String
For Each dr As DataRow In drs
If dr("打印否") = True Then
qdtm = dr("清单条码编码")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\生产工艺加工流程卡模板.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
fl= ProjectPath & "Reports\\" & dr("清单条码编码") & ".xls"
Book.Build() \'生成细节区
Book.Save(fl)
End If
Result = MessageBox.Show("报表已生成，要预览/打印", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Proc As New Process
Proc.File = fl
Proc.Start()
End if
If Result = DialogResult.No Then
Dim Proc As New Process
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
Else
Exit For
End If
-- 发布时间：2024/10/23 13:30:00
--
这是预览结果
此主题相关图片如下：卡7.jpg
-- 发布时间：2024/10/23 13:48:00
--
我的这个模板是由两个表组成，上半部分是一个表，是每一条记录的信息不同，下半部分是另外一个表的内容，内容基本上相同的。我用员工资料的格式试了几次不成功问题出在我不会设置连续打印的细节区部分。
-- 发布时间：2024/10/23 14:04:00
--
老师您好！
不好意思，我弄明白了！谢谢！