超级列表框的简单应用

.计次循环首 (取记录数 (), n)
.如果真 (读 (1) ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, ))
.计次循环首 (取字段数 (), i)
表.插入列 (表.取列数 (), 取字段名 (i), 120, , , )
.计次循环尾 ()
表.插入表项 (表.取表项数 (), 到文本 (读 (1)), , , , )
.计次循环首 (取字段数 (), j)
表.置标题 (表.取表项数 () － 1, j － 1, 到文本 (读 (j)))
表.置表项数值 (表.取表项数 () － 1, i)
.计次循环尾 ()

跳出循环 ()
.如果真结束
表.全部删除 ()
跳过 ()
.计次循环尾 ()
超级列表框的简单应用例子。