将报价表改了个采购表,就是大写不能显示,不知问题出在哪,请指教,谢谢!!!
Select Case e.Book.TempLate Case "报价" Dim sum As Double = Tables("报价.采购").Compute("Sum(货款)") e.Book.Marks("大写") = CUNumber(sum) & "人民币"End Select