其实是变通一下,呵呵,但是很有用!
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 报表设计等业务场景需求,极大的降低企业研发成本和项目交付风险。
如下资源列表,可以为您评估产品提供帮助:
葡萄城热门产品