實現分組小計

2021-05-11 08:53:19 字數 1554 閱讀 1613

report  zalv_sample_03.

*---type pools

type-pools: slis.

*---internal tables

data: begin

of it_flight occurs

0,carrid  like sflight-carrid,

connid   like sflight-connid,

fldate   like sflight-fldate,

seatsmax like sflight-seatsmax,

seatsocc like sflight-seatsocc,

endof it_flight,

*--internal tables for alv

it_fieldcat type  slis_t_fieldcat_alv,

wa_fcat like

line

of it_fieldcat,

layout type  slis_layout_alv,

it_sort type  slis_t_sortinfo_alv,

wa_sort like

line

of it_sort.

*---start-of-selection .

start-of-selection.

call

function

'reuse_alv_fieldcatalog_merge'

exporting

i_program_name         = sy-repid

i_internal_tabname     = 'it_flight'

i_inclname             = sy-repid

changing

ct_fieldcat            = it_fieldcat

exceptions

inconsistent_inte***ce = 1

program_error          = 2.

*----get data

select carrid

connid

fldate

seatsmax

seatsocc

from sflight

into corresponding fields

oftable it_flight

upto

20function

'reuse_alv_list_display'

exporting

i_callback_program = sy-repid

is_layout          = layout

it_fieldcat        = it_fieldcat

it_sort            = it_sort

tables

t_outtab           = it_flight

exceptions

program_error      = 1.  

Cxgrid獲取分組小計值

最近有個專案用到比較複雜的統計,開始接觸dev,dev下有個強大的 那就是cxgrid了。專案上用到對分組 小計後的值獲取。研究了半天,如下 var i,j integer asummary tcxdatasummary begin inherited j 0 for i 0 to cxgrid1d...

藍橋杯 運動員分組 數學小計算

有n個人參加100公尺短跑比賽。跑道為8條。程式的任務是按照盡量使每組的人數相差最少的原則分組。例如 n 8時,分成1組即可。n 9時,分成2組 一組5人,一組4人。n 25時,分4組 7 6 6 6。請程式設計計算分組數字。要求從標準輸入獲得乙個正整數 1 100之間,不必考慮輸入錯誤的情況 表示...

AS 發展小計

2000 2003 actionscript 1.0,和 flash 5.0 一起發布 變成可文字編輯 以前是從對話方塊和下拉列表中選擇,當然,那個時候不叫as 新增 switch 語句和strict equality 操作 2003 2006 actionscript 2.0 和 flash mx...