SOSO使用者 6級 2011-02-09 回答

生成部門財務報表

elseif Request。Form（“FinancialReportType”） = “DepartmentFinancialRecord” then

if Session（“Position”）=“經理” or （Session（“Department”）=Request。Form（“DepartmentName”） and _

Session（“Position”）=“主管”） then

Set RSAllFinancialRecord = conn。Execute（“select * from FinancialRecord where Department = ‘” _

& Request。Form（“DepartmentName”） & “’ and AddDate >=#” & StartDate & “# and AddDate<=#” _

& EndDate & “# order by ” & Request。Form（“ReportOrder”））

ReportLabel=true

TheMessage = TheTimeLimit & “部門-” & Request。Form（“DepartmentName”） & “-財務報表按-” _

& TheOrder & “-排序如下”

else

TheMessage=“您不是［經理/此部門主管］，無權生成部門財務報表”

Warning=true

end if

拉菲招商 卓陽聯盟 浩 4級 2011-02-09 回答

我參考了一下5173畢業論文網，給你寫了一些程式碼，希望能幫得上你的忙：

程式碼如下：

‘報表的排序方式

if Request。Form（“ReportOrder”）=“Name” then

TheOrder=“姓名”

elseif Request。Form（“ReportOrder”）=“ProjectName” then

TheOrder=“財務專案名稱”

elseif Request。Form（“ReportOrder”）=“AccountName” then

TheOrder=“會計經手人”

else

TheOrder=“記錄新增日期”

end if

’報表是否有時間期限

if Request。Form（“DateLimit”）=“Yes” then

StartDate=Request。Form（“StartYear”） & “-” & Request。Form（“StartMonth”） _

& “-” & Request。Form（“StartDay”）

EndDate= Request。Form（“EndYear”） & “-” & Request。Form（“EndMonth”） _

& “-” & Request。Form（“EndDay”）

TheTimeLimit=“時間期限：從” & CStr（StartDate） & “到” & Cstr（EndDate） & “ ”

else

StartDate=“1900-1-1”

EndDate=“2100-1-1”

TheTimeLimit=“時間期限：無 ”

end if

更多的你可以去他們網站看看，肯定會有所收穫的！