简单下拉列表框 读取保存 数据问题
简单下拉列表框 在每次打开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)
}
页:
[1]