ローカルストレージのデータを取得する方法

[chiba]

ご回答ありがとうございます。
ただ、ご回答いただいた内容で処理を実行するとTextFlowBoxには「RDB PARAMETERTABLE」と出力されてしまいます。
実際には各工場区分（1or2or3or4or5）の数字が出力されるようにしたいです。
前後のコードも下記に記載しますので、誤っている記述があればご指摘願います。
{self.cmd_config.add-event-handler
{on Action do
{initialize-db}
def datas = {read-rows-from-db}
let parameter0:String = ""

{if self.s-chi.value==true then
set parameter0 = "1"
elseif self.s-let.value == true then
set parameter0 = "3"
elseif self.s-maf.value==true then
set parameter0 = "5"
elseif self.s-suz.value==true then
set parameter0 = "2"
else
set parameter0 = "4"
}
def rowdata = {edit-rows-to-db
||rowdata = self.rowdata,
name = "kojo-kbn",
parameter1 = parameter0,
parameter2 = "",
parameter3 = "",
parameter4 = "",
parameter5 = "",
memo = "工場区分"
}
|| ローカルストレージからデータを取得する
def con={StorageConnection.open "ukeirekensadb"}
def storage=con.storage asa RdbStorage
|| SQL(select)を実行
def rows:{Array-of RdbRow} = {storage.execute-query "SELECT * FROM PARAMETERTABLE"}

|| execute-querynの結果のRdbRow配列の先頭(0番目）を取り出す
def index:int = 0
def (r:RdbRow, found?:bool) = {rows.get-if-exists index}
{if found? then
|| RdbRowよりカラム"COL1"の値を取得
def col1-value:String = {r.get-String "PARAMETER1"}
|| 取り出した値より文字列を生成
def out-string:String =
{format
"RDB PARAMETERTABLE PARAMETER1=%s",
col1-value
}
|| TextFlowBoxの文字列を入れ替え
{self.lbl-kojoname.clear}
{self.lbl-kojoname.add
out-string
}
}
}
}