其实是变通一下,呵呵,但是很有用!
Public Function onCalcFormular(ByVal formularStr As String) As String
Dim tmpSheet As New FarPoint.Win.Spread.SheetView
If formularStr.Trim <> "" Then
tmpSheet.Cells(0, 0).Formula = formularStr
Return IIf(tmpSheet.Cells(0, 0).Text = "#NAME?", "", tmpSheet.Cells(0, 0).Text)
Else
Return ""
End If
End Function
SpreadJS | 下载试用
纯前端表格控件SpreadJS,兼容 450 种以上的 Excel 公式,具备“高性能、跨平台、与 Excel 高度兼容”的产品特性,备受华为、苏宁易购、天弘基金等行业龙头企业的青睐,并被中国软件行业协会认定为“中国优秀软件产品”。SpreadJS 可为用户提供类 Excel 的功能,满足表格文档协同编辑、 数据填报、 类 Excel 报表设计等业务场景需求,极大的降低企业研发成本和项目交付风险。
如下资源列表,可以为您评估产品提供帮助:
葡萄城热门产品
活字格
打通现有软件,快速定制面向未来的个性化应用
SpreadJS
可嵌入您系统的在线Excel的纯前端表格控件
Wyn商业智能
可与企业自有系统深度集成,增强数据分析的 BI 工具