我有以下代码,它没有过滤单选按钮的列:btn4和btn5。对于单选按钮 btn1 和 btn3 工作正常。你有什么想法吗?干杯,朱利安
SELECTION-SCREEN BEGIN OF BLOCK BLOCK2 WITH FRAME TITLE text-001.
SELECTION-SCREEN COMMENT /1(79) label_4.
PARAMETERS: btn5 RADIOBUTTON GROUP RAD1 USER-COMMAND chk DEFAULT 'X',
btn4 RADIOBUTTON GROUP RAD1,
btn2 RADIOBUTTON GROUP RAD1,
btn1 RADIOBUTTON GROUP RAD1,
btn3 RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK BLOCK2.
Refresh it_filter.
if btn1 = 'X'.
ls_filter-fieldname = 'COMDEP'. "Filtru data comanda intre doua date calendaristice pentru Depasit radiobuton "
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'EQ'.
ls_filter-valuf_int = 'Depasit'.
APPEND ls_filter TO It_filter.
ELSEIF btn3 = 'X'.
ls_filter-fieldname = 'COMDEP'. "Filtru data comanda intre doua date calendaristice pentru Nedepasit radiobuton "
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'EQ'.
ls_filter-valuf_int = 'Nedepasit'.
APPEND ls_filter TO It_filter.
ELSEIF btn4 = 'X'.
ls_filter-fieldname = 'GMEIN'. "Comenzi vrac
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'EQ'.
ls_filter-valuf_int = 'KG'.
APPEND ls_filter TO It_filter.
ELSEIF btn5 = 'X'.
ls_filter-fieldname = 'MEINH'. "Comenzi bucati
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'EQ'.
ls_filter-valuf_int = 'BUC'.
APPEND ls_filter TO It_filter.
EndIf.
同时我想出了答案,请在下面找到它:
IF btn4 = 'X'.
ls_filter-fieldname = 'MEINH'. "Comenzi vrac
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'NE'.
ls_filter-valuf_int = 'BUC'.
APPEND ls_filter TO It_filter.
ELSEIF btn5 = 'X'.
ls_filter-fieldname = 'GMEIN'. "Comenzi structura
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'NE'.
ls_filter-valuf_int = 'KG'.
APPEND ls_filter TO It_filter.
ELSEIF btn6 = 'X'.
ls_filter-fieldname = 'GMEIN'. "Comenzi vrac
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'EQ'.
ls_filter-valuf_int = 'KG'.
APPEND ls_filter TO It_filter.
ls_filter-fieldname = 'MEINH'. "Comenzi structura
ls_filter-tabname = 'LT_JOIN'.
ls_filter-sign0 = 'I'.
ls_filter-optio = 'EQ'.
ls_filter-valuf_int = 'BUC'.
APPEND ls_filter TO It_filter.
EndIf.