简单下拉列表框 读取保存 数据问题

522427447

简单下拉列表框   在每次打开app的时候都需要读取数据库里面的项目，并且需要清空且重新添加全部内容，修改数据库的时候也是如此操作。       这个没有问题现在需要的是，在打开app的时候，简单下拉列表框 可以恢复到上次的选项 。
程序是也做了保存读取设置。       在不清空简单下拉列表框重新添加内容也是没有问题的

现在的问题是在打开app时。清空简单下拉列表框项目再添加内容的时候 ，又一次重新保存了一次0索引， 就是又保存了一次空的记录


造成不能恢复到上次操作的选项 。

现在是每一个单次操作都没有问题，把他们放在一起就是问题？？这个应该怎么改？


简单下拉列表框1.适配器.删除所有项目 ()

记录集1 = 数据库1.cha询SQL ("SELECT * FROM 设置 ", 错误提示)  
{
    判断循环 (记录集1 != 空对象 && 记录集1.行数 > 0 && 记录集1.到下一行 ())
    {

        页面1.简单下拉列表框1.适配器.插入列表项 (记录集1.取列文本值 (1), 空对象, , , , , , , , 真)

    }
    记录集1.关闭 ()
}





方法 通知_被创建 <公开 @虚拟方法 = 可覆盖>
参数 启动信息对象 <类型 = 启动信息类>
参数 载入参数 <类型 = "对象类 []">
参数 参数数目 <类型 = 整数>
{
    父对象.通知_被创建 (启动信息对象, 载入参数, 参数数目)
    简单下拉列表框1.置被选择项目 (文本到整数 (文件_读配置E4A (取外部存储空间根目录 ().取文件名 () + "/app1/11.txt", "保存")))
}





方法 简单下拉列表框_项目被选择 <接收事件 类型 = 整数>
参数 来源对象 <类型 = 简单下拉列表框>
参数 标记值 <类型 = 整数>
参数 被选择项目索引 <类型 = 整数>
{
    调试输出 (到文本 (被选择项目索引), 来源对象.适配器.取项目 (被选择项目索引).标题文本)
    文件_写配置E4A (取外部存储空间根目录 ().取文件名 () + "/app1/11.txt", "保存", 到文本 (被选择项目索引))

    返回 (0)
}