Select Case e.Book.TempLate
Case "差旅费报销单"
e.Book.Marks("pg") = e.Book.Marks("pg") + 1
e.Book.Marks("页码") = "第" & e.Book.Marks("pg") & "页"
Dim dr As DataRow
If vars("填报日期1") = Nothing
dr= DataTables("登记出差").Find("[出差起日期]>=#2018-12-31# and [出差起日期]<=#2019-12-31# and 报销方式_车或差 = '差旅'","出差起日期",2)
Else
dr= DataTables("登记出差").Find("[出差起日期]>#" & vars("填报日期1") & "# And [出差起日期]<=#2019-12-31# And 报销方式_车或差 = '差旅'" ,"出差起日期",2)
End If
If dr IsNot Nothing Then
e.Book.Marks("填报日期1")= dr("出差起日期")
Else
If vars("填报日期1") = Nothing
dr= DataTables("登记出差").Find("[出差起日期]>=#2018-12-31# and [出差起日期]<=#2019-12-31# and 报销方式_车或差 = '差旅'","出差起日期",1)
Else
dr= DataTables("登记出差").Find("[出差起日期]>#" & vars("填报日期1") & "# And [出差起日期]<=#2019-12-31# And 报销方式_车或差 = '差旅'" ,"出差起日期",1)
End If
If dr IsNot Nothing Then
e.Book.Marks("填报日期1")= dr("出差起日期")
Else
If vars("填报日期1") = Nothing
dr= DataTables("登记出差").Find("[出差起日期]>=#2018-12-31# and [出差起日期]<=#2019-12-31# and 报销方式_车或差 = '差旅'","出差起日期",0)
Else
dr= DataTables("登记出差").Find("[出差起日期]>#" & vars("填报日期1") & "# And [出差起日期]<=#2019-12-31# And 报销方式_车或差 = '差旅'" ,"出差起日期",0)
End If
If dr IsNot Nothing Then
e.Book.Marks("填报日期1")= dr("出差起日期")
End If
End If
End If
End Select
BuildPageFooter事件
Select Case e.Book.TempLate
Case "差旅费报销单"
e.Book.Marks("填报日期2") = e.PageRows(e.PageRows.count -1)("出差起日期") '" & [%max(出差起日期)] & "
vars("填报日期1") = e.PageRows(e.PageRows.count -1)("出差起日期")
e.Book.Marks("报账人")= user.name
End Select
加好友 
发短信
Post By：2020/3/15 17:06:00 [只看该作者]
