IFS's ERP刷新后自动选择某行的功能实现

FLEX_ERP.Jerry

实际问题:
  以2K4为例,在批号工序报告时,每报表一次,系统会自动刷新并且把MOUSE指向第一行且选中;
造成的困扰是,资料比较多时,USER查找批号/工序资料耗时
解决办法:
  写一刷新过程,目的是在刷新前记下当前行号,再执行刷新过程,然后再选中记下的行号;
实现方法:
Step1)  新定义一变量 nMyRow;
Step2) 刷新前记下当前行号 例如:Set nMyRow = nRow
Step3) 写Refresh过程
Function: Refresh
Description:
Returns
Parameters
Static Variables
Local variables
Actions
  --执行刷新动作
  Call SalSendMsg( i_hWndFrame, PM_DataSourceRefresh, METHOD_Execute, 0 )
--把已选中的行,取消选中
Set nRow = TBL_MinRow
While SalTblFindNextRow( hWndForm, nRow, ROW_Selected, 0)
   Call SalTblSetRowFlags( hWndForm, nRow, ROW_Selected, FALSE)
--改变焦点位置并且选中刷新前的行
Call SalTblSetFocusRow ( hWndForm, nMyRow )
Call SalTblSetRowFlags( hWndForm, nMyRow, ROW_Selected, TRUE )
  Step4) 在需要刷新的地方调用 Call Refresh();
GAME OVER! foreveryday007 20051216
F1 HELP
1>
bOk = SalTblSetFocusRow ( hWndTbl, nRow )
Sets a table window's focus frame row.
Parameters
hWndTbl Window Handle. The handle (or name) of a table window.
nRowNumber.  The row number of the row to which to apply the focus frame.
Return Value
bOk is TRUE if the function succeeds and FALSE if it fails.
IFS Client Developer
2>
bOk = SalTblSetRowFlags ( hWndTbl, nRow, nFlags, bSet )
Sets or clears a table window row's flags.
Parameters
hWndTbl Window Handle. The handle (or name) of a table window.
nRowNumber.  The row number of the row whose flags you want to set or clear.
nFlags Number. The row flags. You can combine any of the ROW_* flags using the OR (|) operator.
bSet Boolean. Whether to set (TRUE) or clear (FALSE) the specified flags.
Return Value
bOk is TRUE if the function succeeds and FALSE if it fails.
Example
The internal function SelectAllRows loops through all rows in a scroll range, selecting each one. SalTblQueryScroll gets the scroll range, and SalTblSetRowFlags selects each row by setting its ROW_Selected flag.
Internal Functions
   Function: SelectAllRows
   ...
      Actions
Call SalTblQueryScroll ( hWndTbl, nPosRow, nMinRow, nMaxRow )
Set nRow = nMinRow
         While ( nRow <= nMaxRow )
Call SalTblSetRowFlags ( hWndTbl, nRow, ROW_Selected, TRUE )
Set nRow = nRow + 1
IFS Client Developer

作者Blog：http://blog.csdn.net/foreveryday007/

zhoujianlin221

这是个旧贴,很早以前看过的

FLEX_ERP.Jerry

希望楼上的经常来发表看法呵呵