Code: Select all
command UpdateUserFieldControlContent stackLongID
local databaseID
put the cDatabaseID of stackLongID into databaseID
local recordSetID
put the cRecordSetID of stackLongID into recordSetID
local recordSetCount
put DBRecordSetCount(recordSetID) into recordSetCount
local numberOfControls
put the number of controls of stackLongID into numberOfControls
if (recordSetID is a number) then
repeat with i = 1 to numberOfControls
if (char 1 to 3 of the short name of control i <> "dbd") then
if (databaseID <> EMPTY) AND (recordSetID <> EMPTY) AND (the cToolType of control i <> "label") then
put revDatabaseColumnNamed(recordSetID, "dbdID") & LF & \
revDatabaseColumnNamed(recordSetID, "field_id_1039")
set the text of control i to (revDatabaseColumnNamed(recordSetID, the cName of control i)) // where cName is "field_id_1039" and
// shows the correct values for the previous entries
end if
end if
end repeat
end if
end UpdateUserFieldControlContent