- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教报表问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26414)
-- 发布时间：2012/12/3 17:16:00
-- 请教报表问题
将报价表改了个采购表，就是大写不能显示，不知问题出在哪，请指教，谢谢！！！
Select Case e.Book.TempLate
Case "报价"
Dim sum As Double = Tables("报价.采购").Compute("Sum(货款)")
e.Book.Marks("大写") = CUNumber(sum) & "人民币"
End Select
此主题相关图片如下：截图1354525822.png
此主题相关图片如下：截图1354525854.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:采购单.xls |
-- 发布时间：2012/12/3 17:25:00
--
看一下，菜单->打印输出->事件，里面有代码。
-- 发布时间：2012/12/3 18:43:00
--
Select Case e.Book.TempLate
Case "报价"
Dim sum As Double = Tables("报价.采购").Compute("Sum(货款)")
e.Book.Marks("大写") = CUNumber(sum) & "人民币"
End Select
这是上次您帮忙写的，写在打印事件是，打报价单没问题，修改后打采购单其它都OK，就是大写不显示。
-- 发布时间：2012/12/4 9:18:00
--
代码改成。
Select Case e.Book.TempLate
Case "报价"
Dim sum As Double = Tables("报价.采购").Compute("Sum(货款)")
e.Book.Marks("大写") = CUNumber(sum) & "人民币"
Case "采购单"
Dim sum As Double = Tables("XXXXXXXXXXXXX").Compute("Sum(货款)")
e.Book.Marks("大写") = CUNumber(sum) & "人民币"
End Select
-- 发布时间：2012/12/4 15:58:00
--
谢谢！！！问题解决。