以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  输入代码中文大写不能正确显示，怎样现在每一份报表页码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89200)
--  作者：遇江南
--  发布时间：2016/8/17 10:36:00
--  输入代码中文大写不能正确显示，怎样现在每一份报表页码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:问题table.rar



各位老师早上好！图片点击可在新窗口打开查看我有问题请教老师指导

问题一：我在 表属性的DataColChanged事件写入
 
For Each dc As DataCol In e.DataTable.DataCols
    If e.DataTable.DataCols.Contains(dc.name & "大写") Then
        If e.DataRow.IsNull(dc.name) = False Then
            e.DataRow(dc.name & "大写") =  CUMoney(e.DataRow(dc.name))
        Else
            e.DataRow(dc.name & "大写") =  Nothing
        End If
    End If
Next

中文大写不能正常显示，常见出现在元、角、分自动减“1”，详见“中心村棚户区改造征收房屋汇总表的每一项的金额的大写”


问题二：我想打印多份Word报表时，每一份报表页码限制在1至8页，怎么设置？比如打印多份Word报表中的“贷款合同模板”中怎样限制每一份页码“贷款合同”在1-8页？
--  作者：大红袍
--  发布时间：2016/8/17 10:53:00
--  

1、

 

For Each dc As DataCol In e.DataTable.DataCols
    If e.DataTable.DataCols.Contains(dc.name & "大写") Then
        If e.DataRow.IsNull(dc.name) = False Then
            e.DataRow(dc.name & "大写") =  CUMoney(format(e.DataRow(dc.name), "0.00"))
        Else
            e.DataRow(dc.name & "大写") =  Nothing
        End If
    End If
Next
--  作者：大红袍
--  发布时间：2016/8/17 11:03:00
--  

2、用代码处理

 

 

Dim t As Table = Tables("中心村棚户区改造征收房屋汇总表")
For i As Integer = t.TopPosition To t.BottomPosition \'逐行生成报表
    Dim tm As String  = ProjectPath & "Attachments\\贷款合同模板.doc" \'指定模板文件
    Dim fl As String = ProjectPath & "Reports\\贷款合同" & t.Rows(i)("_Identify") & ".doc" \'指定目标文件
    Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport
    wrt.BuildOne(t.Rows(i).DataRow)
    wrt.quit
    Dim proc As new Process
    proc.File = fl
    proc.Start
Next

 
--  作者：遇江南
--  发布时间：2016/8/17 11:10:00
--  
以下是引用大红袍在2016/8/17 11:03:00的发言：

2、用代码处理

 

 

Dim t As Table = Tables("中心村棚户区改造征收房屋汇总表")
For i As Integer = t.TopPosition To t.BottomPosition \'逐行生成报表
    Dim tm As String  = ProjectPath & "Attachments\\贷款合同模板.doc" \'指定模板文件
    Dim fl As String = ProjectPath & "Reports\\贷款合同" & t.Rows(i)("_Identify") & ".doc" \'指定目标文件
    Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport
    wrt.BuildOne(t.Rows(i).DataRow)
    wrt.quit
    Dim proc As new Process
    proc.File = fl
    proc.Start
Next

 





这段代码写在哪里？老师
--  作者：大红袍
--  发布时间：2016/8/17 11:14:00
--  
 弄一个窗口，放入按钮，写到click事件
--  作者：遇江南
--  发布时间：2016/8/17 11:15:00
--  
以下是引用大红袍在2016/8/17 11:14:00的发言：
 弄一个窗口，放入按钮，写到click事件
老师，我是初学者，求详细操作步骤图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/8/17 11:22:00
--  

 

http://www.foxtable.com/webhelp/scr/0698.htm

 
--  作者：遇江南
--  发布时间：2016/8/17 11:47:00
--  
以下是引用大红袍在2016/8/17 11:22:00的发言：

 

http://www.foxtable.com/webhelp/scr/0698.htm

 2、用代码处理

 

 

Dim t As Table = Tables("中心村棚户区改造征收房屋汇总表")
For i As Integer = t.TopPosition To t.BottomPosition \'逐行生成报表
    Dim tm As String  = ProjectPath & "Attachments\\贷款合同模板.doc" \'指定模板文件
    Dim fl As String = ProjectPath & "Reports\\贷款合同" & t.Rows(i)("_Identify") & ".doc" \'指定目标文件
    Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport
    wrt.BuildOne(t.Rows(i).DataRow)
    wrt.quit
    Dim proc As new Process
    proc.File = fl
    proc.Start
Next


老师，批量打印的报表“贷款合同”在一个Word中而不是分开的，怎么设置？
--  作者：大红袍
--  发布时间：2016/8/17 11:56:00
--  
 不行，除非你word的内容固定长度，不然在一个word里面，肯定有微小差别。