主题：请教报表问题

将报价表改了个采购表，就是大写不能显示，不知问题出在哪，请指教，谢谢！！！

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

 看一下，菜单->打印输出->事件，里面有代码。

Select Case e.Book.TempLate
    Case "报价"
        Dim sum As Double = Tables("报价.采购").Compute("Sum(货款)")
        e.Book.Marks("大写") = CUNumber(sum) & "人民币"
End Select

这是上次您帮忙写的，写在打印事件是，打报价单没问题，修改后打采购单其它都OK，就是大写不显示。

 代码改成。

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

谢谢！！！问题解决。