使用正在进行的小部件句柄填充临时表

Question

我正在尝试使用以下代码动态创建一组按钮：

DEFINE VAR temp-hand AS WIDGET-HANDLE.
DEFINE INPUT  PARAMETER ipc AS CHARACTER   NO-UNDO.
&global-define X  VALUE(v + ipc )
CREATE BUTTON temp-hand
ASSIGN
FRAME = FRAME btn-frame:HANDLE
ROW = vdeInicio
COLUMN = 10
WIDTH = 19
LABEL = ipc
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS:
ON CHOOSE PERSISTENT RUN btn-mess IN THIS-PROCEDURE.
END TRIGGERS.
temp-hand:LOAD-IMAGE("imagenes/Entradas").
vdeInicio = vdeInicio + 3.57.

当我解决单个按钮小部件时，这有效，如果编写循环并调用包含此代码的过程，它会创建多个按钮但指向一个句柄，有些人告诉我比创建一个临时表并保存在那里小部件句柄可能会起作用，但我不知道如何使用小部件句柄填充表格， 你能帮我这个吗，

Answer 1

像这样：

define temp-table tt_buttonList no-undo
field buttonId as integer
field buttonHandle as widget-handle
.
define variable i as integer no-undo.
do i = i to 5:
create tt_buttonList.
tt_buttonList.buttonId = i.
CREATE BUTTON tt_buttonList.buttonHandle
ASSIGN FRAME = FRAME btn-frame:HANDLE   /* this is undefined in your example -- I have no idea where it came from */
ROW = i * 4
COLUMN = 10
WIDTH = 19
LABEL = string( i )
SENSITIVE = TRUE
VISIBLE = TRUE
.
end.

我不知道你为什么要从触发器过程运行这样的代码。 虽然它可能"工作"，但像这样将 UI 混合到数据库访问代码中确实会带来严重的麻烦。