利用Excel文件作为模板生成Excel报表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 利用Excel文件作为模板生成Excel报表的问题

共有2499人关注过本帖树形打印复制链接主题：利用Excel文件作为模板生成Excel报表的问题

zhangchi96

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5016 威望：0 精华：0 注册：2012/2/11 13:27:00

利用Excel文件作为模板生成Excel报表的问题 发帖心情

Post By：2015/10/19 16:34:00 [只看该作者]

利用Excel文件作为模板生成Excel报表：

Dim 房贴比例1,房贴比例2 As Double

If CurrentYM >= 201202 Then

房贴比例1 = 4.9/100

房贴比例2 = 13/100

End If.

Dim Book As New XLS.Book(ProjectPath & "Attachments\预算表导出模版.xls")

Dim Sheet0 As XLS.Sheet = Book.Sheets(0) '定义第1个工作表

Sheet0(7,36).Value = "<iif([工龄起算] < 199812, round2(Vars("房贴比例1")*([岗位工资_实际]+[薪级工资_实际]+[教龄津贴]+[特级教师补贴]+[岗位津贴]+[生活补贴]+[农村津贴]),0),""是"")>"

请教大师，最后一句怎么修改都不对，除了蓝色的部分外，其他的都没有问题，但不知道错在哪里？怎么修改才好！

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/19 16:42:00 [只看该作者]

Sheet0(7,36).Value = "<iif([工龄起算] < 199812, round(" & 房贴比例1 & "*([岗位工资_实际]+[薪级工资_实际]+[教龄津贴]+[特级教师补贴]+[岗位津贴]+[生活补贴]+[农村津贴]),0),""是"")>"

zhangchi96

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5016 威望：0 精华：0 注册：2012/2/11 13:27:00

Post By：2015/10/19 17:32:00 [只看该作者]

谢谢，但我要想用严格意义的四舍五入，把 round 换成round2后就出错了，有办法吗？大红袍老师！

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/19 17:34:00 [只看该作者]

Format(12.3456,"#")

Sheet0(7,36).Value = "<iif([工龄起算] < 199812, Format(" & 房贴比例1 & "*([岗位工资_实际]+[薪级工资_实际]+[教龄津贴]+[特级教师补贴]+[岗位津贴]+[生活补贴]+[农村津贴]),""#""),""是"")>"

[此贴子已经被作者于2015/10/19 17:34:40编辑过]

zhangchi96

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5016 威望：0 精华：0 注册：2012/2/11 13:27:00

Post By：2015/10/19 22:50:00 [只看该作者]

试过了，在这里用 round2 或者 format ，返回的结果都是空值。

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/19 22:54:00 [只看该作者]

Sheet0(7,36).Value = "<iif([工龄起算] < 199812, Format(" & 房贴比例1 & "*(isnull([岗位工资_实际],0)+isnull([薪级工资_实际],0)+isnull([教龄津贴],0)+isnull([特级教师补贴],0)+isnull([岗位津贴],0)+isnull([生活补贴],0)+isnull([农村津贴],0)),""#""),""是"")>"

不行，就上传例子