T100 单身行上下移动功能

单身行上下移动功能

工艺助手-上移下移功能

问题分析：如图所示，相同版次如 ZB 版 之间可以通过上移、下移按钮实现位置的交换，并且光标所在位置也随之移动。

基本思路：因为要实现位置的交换，那么久可以用 update 的方法，把上一条数据 update 到下一条，下一条数据更新到上一条中，并且按照版序号排序，从而实现位置的交换。位置交换后再改变光标所在行的位置，从而实现光标

位置的移动。

1、update 本行数据，如上移操作：

let l_ecbbud020_t = g_ecbb_d[l_ac4].ecbbud020 #备份版序号，避免第一个 update 后被覆盖 update eeci200_cs_tmp3 set ecbbud020=g_ecbb_d[l_ac4–1].ecbbud020

where ecbbud020=g_ecbb_d[l_ac4].ecbbud020 and ecbbud002=g_ecbb_d[l_ac4].ecbbud002

and ecbb004=g_ecbb_d[l_ac4].ecbb004 and ecbb003 = g_ecbb_d[l_ac4].ecbb003

2、update 上一行数据： update eeci200_cs_tmp3 set ecbbud020=l_ecbbud020_t #这里用到备份的版序号

where ecbbud020=g_ecbb_d[l_ac4–1].ecbbud020 and ecbbud002=g_ecbb_d[l_ac4–1].ecbbud002

and ecbb004=g_ecbb_d[l_ac4–1].ecbb004 and ecbb003 = g_ecbb_d[l_ac4–1].ecbb003

3、改变光标所在位置，向上移动一行

call cs_eeci200_03_b4_fill()

let l_ac4=l_ac4–1 #l_ac – 1

CALL DIALOG.setCurrentRow(“s_detail4”,l_ac4) #改变光标位置

如上操作，就能实现上移、下移动能。

转载请注明：赫非域 » T100 单身行上下移动功能