- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- excel报表事件编码求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185615)
-- 发布时间：2023/3/6 11:54:00
-- excel报表事件编码求助
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:差旅费报销单.xls |
1\\ 已在beforebuild 事件中写入：
Dim tbrq As Date = Tables("蒋安出差").Current("出差起日期")
Select e.Book.TempLate
Case "差旅费报销单"
Select Case e.Book.CurrentSheetName
Case "sheet1"
e.Book.Marks.Add("填报日期1","")
e.Book.Marks.Add("报销人","")
\'e.Book.Marks.Add("用户名",UserName)
e.Book.Marks.Add("页码","")
e.Book.Marks.Add("pg", 0)
End Select
\'代码
End Select
2、在事件buildPageHeader 中写入
Dim tbrq As Date = Tables("蒋安出差").Current("出差起日期")
Select e.Book.TempLate
Case "差旅费报销单"
Select Case e.Book.CurrentSheetName
Case "sheet1"
\'e.Book.Marks.Add("报销人",UserName)
\'e.Book.Marks.Add("用户名",UserName)
e.Book.Marks("填报日期1")= tbrq
e.Book.Marks("pg") = e.Book.Marks("pg") + 1
e.Book.Marks("页码") = "第" & e.Book.Marks("pg") & "页"
MessageBox.show("1")
End Select
\'代码
End Select
3、报错：
此主题相关图片如下：1.jpg
帮助看代码错在哪里？
-- 发布时间：2023/3/6 12:05:00
--
调试
Dim tbrq As Date = Tables("蒋安出差").Current("出差起日期")
MessageBox.show(tbrq )Select e.Book.TempLate
Case "差旅费报销单"
Select Case e.Book.CurrentSheetName
Case "sheet1"
MessageBox.show(1)
\'e.Book.Marks.Add("报销人",UserName)
\'e.Book.Marks.Add("用户名",UserName)
e.Book.Marks("填报日期1")= tbrq
MessageBox.show(2) e.Book.Marks("pg") = e.Book.Marks("pg") + 1
MessageBox.show(3) e.Book.Marks("页码") = "第" & e.Book.Marks("pg") & "页"
MessageBox.show(4) End Select
\'代码
End Select
-- 发布时间：2023/3/6 12:41:00
--
错到此处：
e.Book.Marks("pg") = e.Book.Marks("pg") + 1
-- 发布时间：2023/3/6 13:32:00
--
试试
e.Book.Marks("pg") = val(e.Book.Marks("pg")) + 1
-- 发布时间：2023/3/6 21:21:00
--
同样的问题，报错说给定的关键字不在字典中。
-- 发布时间：2023/3/6 21:48:00
--
删除项目里的bin目录，重启项目试试。还不行请上传实例测试
-- 发布时间：2023/3/6 23:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ddzcw.foxdb |
数据库传不了，我压缩了也传不过来
-- 发布时间：2023/3/7 7:27:00
--
我代码的目的是1、自动编写页码 2。填报日期为本页的最后一天。代码如何写，在哪里写？帮助中的例子使用起来不对。
-- 发布时间：2023/3/7 8:36:00
--
新建一个项目，导入这个表作为内部表，输入代码重现同样的错误，然后新项目发上来
-- 发布时间：2023/3/9 21:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报表自动打印页码.rar |