以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  审核后才能打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83942)
--  作者：nxqtxwz
--  发布时间：2016/4/20 8:32:00
--  审核后才能打印
如何实现一条记录审核通过后才能打印
--  作者：blackzhu
--  发布时间：2016/4/20 8:35:00
--  
加个审核人的列

判断有没有值
--  作者：Hyphen
--  发布时间：2016/4/20 8:47:00
--  
参考：http://www.foxtable.com/help/topics/2296.htm
--  作者：大红袍
--  发布时间：2016/4/20 9:21:00
--  
以下是引用nxqtxwz在2016/4/20 8:32:00的发言：
如何实现一条记录审核通过后才能打印

 

什么的打印？请具体你的问题。
--  作者：nxqtxwz
--  发布时间：2016/4/20 9:25:00
--  

各位老师好，我没有说清楚。是这样的，我的表中有一列是审核列，表中天天增加记录，就是想新增加的记录只有在审核通过后才能打印出来。打印是WORD报表打印。请各位老师帮忙给个解决办法。

 
--  作者：大红袍
--  发布时间：2016/4/20 9:44:00
--  

单独做一个打印按钮

 

Dim t As Table = Tables("表A")
Dim tm As String  = ProjectPath & "Attachments\\出库单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件
Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport
For i As Integer = t.TopPosition To t.BottomPosition
   
    Dim dr As DataRow = t.rows(i).DataRow
    If dr("第一列") = True Then
        wrt.BuildOne(dr)
    End If
   
Next

wrt.Show() \'显示报表
--  作者：nxqtxwz
--  发布时间：2016/4/21 7:42:00
--  
这段代码要放在哪呢
--  作者：WUZHAN
--  发布时间：2016/4/21 7:48:00
--  
放在你做的那个打印的按钮上。
--  作者：大红袍
--  发布时间：2016/4/21 9:27:00
--  
以下是引用nxqtxwz在2016/4/21 7:42:00的发言：
这段代码要放在哪呢

 

做一个窗口，做一个按钮，放在按钮click事件

 

http://www.foxtable.com/help/topics/0698.htm