1. Refresh scroll
Local Rowset &pnlbuf, &data;
&GRID = GetGrid(Panel.ALI_EMPL_IM_ID, "ALI_EMPL_IMID");
rem ALI_EMPL_IMID 为grid 中的 page filed 属性值;
&GRIDCOLUMN = &GRID.GetColumn("DELETE");
&GRIDCOLUMN.Label = " ";
&pnlbuf = GetLevel0();
&data = &pnlbuf(1).GetRowset(Scroll.ALI_EMPL_IM_ID);
&data.Refresh();
2. 多层scroll的获取
Local Rowset &VET_SCROLL, &OWNER_SCROLL, &PET_SCROLL, &VISIT_SCROLL;
&VET_SCROLL = GetLevel0();
&OWNER_SCROLL = &VET_SCROLL.GetRow(1).GetRowSet(SCROLL.OWNER);
&PET_SCROLL = &OWNER_SCROLL.GetRow(2).GetRowSet(SCROLL.PET);
&VISIT_SCROLL = &PET_SCROLL.GetRow(2).GetRowSet(SCROLL.VISIT);
3. 取 level1 上的字段
&objRS1 = GetLevel0()(1).GetRowset(Scroll.ALI_CHG_PRC_EMP);
&objRS1.Flush();
For &I = 1 To &objRS1.ActiveRowCount
&DERIVED_ROWS = &objRS1.GetRow(&I).GetRecord(Record.DERIVED_ROWS);
end-for;
4.在末尾插入一行;
If &EP_GBLKEYS_WRK.EP_DOC_SELECT_IND.Value = "A" Then
/* All: Current & History */
&EP_SCORE_RS = GetLevel0()(1).GetRowset(Scroll.ALI_EP_SCORE_VW);
&MAX_SEQ_NBR = 0;
Warning "T";
&EP_SCORE_RS.HideAllRows();
/*For &I = 1 To &EP_SCORE_RS.ActiveRowCount;
&EP_SCORE_RS.GetRow(&I).ALI_EP_SCORE_VW.EMPLID.Visible = True;
&EP_SCORE_RS.GetRow(&I).ALI_EP_SCORE_VW.LAST_NAME.Visib
jessica-小珠 说:
&EP_SCORE_RS.GetRow(&I).ALI_EP_SCORE_VW.ALI_MANAGER_LEVEL.Visible = True;
&EP_SCORE_RS.GetRow(&I).ALI_EP_SCORE_VW.ALI_EP_ACHIVESCORE.Visible = True;
&EP_SCORE_RS.GetRow(&I).ALI_EP_SCORE_VW.ALI_EP_VALUE_SCORE.Visible = True;
&EP_SCORE_RS.GetRow(&I).ALI_EP_SCORE_VW.ALI_EP_TOTAL_SCORE.Visible = True;
&EP_SCORE_RS.GetRow(&I).ALI_EP_SCORE_VW.COMMENTS.Visible = True;
&EP_SC
----------------
SQLExec("select 'X' from psroleuser where ROLEUSER=:1 and Rolename in ('ALI_GP_ADMIN','ALI_GP_C&B_DIRECTOR','ALI_GP_SI,ALI_GP_SI1','ALI_GP_SPECIALIST','ALI_HROS_CLERK','YAH_FESCO_CLERK','ASF_GP_SPECIALIST','TAO_GP_SPECIALIST','APY_GP_SPECIALIST','ALI_PNID_VIEWER')", %OperatorId, &PERS_NID_Grid_Visible);
If (All(&PERS_NID_Grid_Visible)) Then
GetLevel0().GetRow(1).GetRowset(Scroll.PERS_NID).ShowAllRows();
Else
GetLevel0().GetRow(1).GetRowset(Scroll.PERS_NID).HideAllRows();
End-If;
rem 隐藏scroll中的某一行;
&Nid_SCORE_RS = GetLevel0()(1).GetRowset(Scroll.PERS_NID);
For &I = 1 To &Nid_SCORE_RS.ActiveRowCount;
If &Nid_SCORE_RS.GetRow(&I).PERS_NID.PRIMARY_NID.value <> "Y" Then
HideRow(Scroll.PERS_NID, &I);
End-If;
End-For;
-------------------
rem 在末尾插入一行;
&objRS1 = GetLevel0()(1).GetRowset(Scroll.ALI_GP_JQKK_VW1);
&objRS1.insertRow(&objRS1.ActiveRowCount);
注意:
1. 页面上scroll 定义 名称时 ,必须以该level 上的表的名字来命名,否则getrow时,会报错。