递归火山软件开发平台

标题: 简单下拉列表框 读取保存 数据问题 [打印本页]

作者: 522427447    时间: 2024-2-28 13:34
标题: 简单下拉列表框 读取保存 数据问题
简单下拉列表框   在每次打开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)
}






欢迎光临 递归火山软件开发平台 (https://bbs.voldp.com/) Powered by Discuz! X3.4