- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打印模板EXCL里有公式MOD测试条件失效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92436)
-- 发布时间：2016/11/3 12:20:00
-- 打印模板EXCL里有公式MOD测试条件失效
在excl打印模板里加入了MOD公式，在FOXTABLE导出模板打印到EXCL，公式里的MOD测试条件没有了。导致公式无法统计数据，也试过用FOXTABLE直接写公式导出到EXCL但是，excl单元格只显示公式内容不进行统计，必须选中单元格按回车才生效，请问，能怎么解决打印模板里的公式正确计算和统计呢？？？跪求大神帮我啊。我已经弄了好几天了。一直解决不了问题。。。跪谢！！！！！！
-- 发布时间：2016/11/3 12:42:00
-- 回复：（jintong110）打印模板EXCL里有公式MOD测试条件...
传实例或图片看看
-- 发布时间：2016/11/3 13:03:00
--
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获1.png
-- 发布时间：2016/11/3 13:04:00
--
麻烦给看下啊
-- 发布时间：2016/11/3 13:21:00
-- 回复：（jintong110）麻烦给看下啊
可以用报表事件来完成，加我的QQ468163809
代码写在报表的BuildDetail事件中（红色部分要依据自己的实际情况而定）
Select Case e.Book.TempLate
Case "XXX"
Dim sheet As XLS.Sheet = e.Book.Sheets("XXX")
If e.DataRow IsNot Nothing Then
sheet(3,21).Value = e.DataRow("C1") Mod e.DataRow("C2")
End If
End Select
[此贴子已经被作者于2016/11/3 13:31:29编辑过]
-- 发布时间：2016/11/3 13:31:00
--
已经加了，等待验证了。
-- 发布时间：2016/11/3 13:47:00
--
这个代码我的IF判定怎么办
-- 发布时间：2016/11/3 14:11:00
--
此主题相关图片如下：0001.png
-- 发布时间：2016/11/3 14:12:00
--
此主题相关图片如下：0002.png
-- 发布时间：2016/11/3 14:12:00
--
以下是引用jintong110在2016/11/3 13:31:00的发言：
已经加了，等待验证了。
已经加了，等待验证了。
为什么不直接用在模板里面写foxtable的公式？
http://www.foxtable.com/webhelp/scr/1388.htm
http://www.foxtable.com/webhelp/scr/1415.htm
如果生成excel后，需要excel公式生效，可以用vba打开，然后执行
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Calculate()
App.Visible = True