excel报表事件编码求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:差旅费报销单.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

帮助看代码错在哪里？

错到此处：

e.Book.Marks("pg") = e.Book.Marks("pg") + 1

同样的问题，报错说给定的关键字不在字典中。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ddzcw.foxdb

数据库传不了，我压缩了也传不过来

我代码的目的是1、自动编写页码 2。填报日期为本页的最后一天。代码如何写，在哪里写？帮助中的例子使用起来不对。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:报表自动打印页码.rar

页码并没有递增，每页都是1，这个不对呀，哪儿错了？

为实现excel报表<填报日期1>自动生成,且为当页细节区出差起日期的当月的最后一天.我首先设置了全局变量tbrq ( public tbrq as date)，并在报表的下列事件中设置了相应的代码，却失败，我测试过事件发生的先后顺序为BeforeBuild --BuildPageHeader --BuildDetail --BuildPageFooter，但全局变量最后没有传给e.Book.Marks("填报日期1")，错在哪里？

\BeforeBuild 事件代码

Select Case e.Book.TempLate

Case "差旅费报销单蒋安出差"

e.Book.Marks.Add("填报日期1","")

e.Book.Marks.Add("填报日期2","")

e.Book.Marks.Add("页码",1)

e.Book.Marks.Add("pg",0)

e.Book.Marks.Add("报账人","")

End Select

'BuildPageHeader事件代码

Select e.Book.TempLate

Case "差旅费报销单蒋安出差"

Select Case e.Book.CurrentSheetName

Case "sheet1"

e.Book.Marks("pg") = val(e.Book.Marks("pg")) + 1

e.Book.Marks("页码") = "第" & e.Book.Marks("pg") & "页"

e.Book.Marks("填报日期1")= tbrq

MessageBox.show("这是Duild pageHeadr事件vars('tbrq')的初始值是: " & tbrq)

End Select '代码

End Select

'BuildDetail 事件代码

Dim tbrq1 As Date

Dim tbrq2 As Date

If e.DataRow IsNot Nothing Then

MessageBox.show("这是Duild detail事件vars('tbrq')的初始值是: " & tbrq)

tbrq1 = e.DataRow("出差起日期")

Dim year As Integer = tbrq1.year

Dim month As Integer = tbrq1.month

tbrq2 = new Date(Year, Month, Date.DaysInMonth(Year,Month))

tbrq = tbrq2

MessageBox.show("这是Duild detail事件vars('tbrq')的结束值是: " & tbrq)

Else

tbrq = tbrq2

End If

'BuildPageFooter事件代码

e.Book.Marks("填报日期1")= tbrq

MessageBox.show("这是Duild pageFooter事件vars('tbrq')的初始值是: " & tbrq)

下一页的填报日期恰是上一页的，第一页的填日期是初始值，是不合符要求的

下载信息 [文件大小：下载次数： ]
点击浏览该文件:报表自动打印页码.rar

主题：excel报表事件编码求助