4GL单身点按钮后让光标继续停在那一行

可用于某个程序在单身需要外连查询程序后光标能继续停在原来的行上，而不是回到第一行。

主要语句如下。先定义一个 全局变量 用于保存原始光标所在的行数。就是点查询按钮前，先把当前行数保留下来：

LET g_ac2 = ARR_CURR() #保存当前行数

在查询完成后重新显示列表时重新定义光标的位置。

DISPLAY ARRAY g_gem TO s_gem.* ATTRIBUTE(COUNT=g_rec_b)
    BEFORE ROW
         LET l_ac1 = ARR_CURR()
        #让光标停留在 之前选择的某一单据---g_ac2全局变量
          IF g_ac2 >0   THEN
            CALL fgl_set_arr_curr(g_ac2)
            LET l_ac1 = g_ac2
            LET g_ac2 = 0
         END IF

转载请注明：赫非域 » 4GL单身点按钮后让光标继续停在那一行