超级列表框保存数据

wlaita2286

请问这个窗口事件下面正常关闭窗口为何有时候超级列表的数据会保存不上？大概有30列20行的数据，有没有什么办法检测到超列有改动就  实时保存超列的完整数据下来方便后面读取

zainex

把保存到代码放到 启动窗口的 可否被关闭 事件里，不要放到将被销毁里：

山猫啊

加许可证   放在超级列表框 置标题的地方写出一次

你的猫

  

子程序名	返回值类型	公开	备 注
_按钮_保存_被单击

变量名	类 型	静态	数组	备 注
文件号	整数型
行数	整数型
列数	整数型
i	整数型
j	整数型
行数据	文本型
文件路径	文本型

' 1. 弹出保存文件对话框
通用对话框1.类型 ＝ 1  ' 1表示保存文件对话框
通用对话框1.过滤器 ＝ “CSV文件(*.csv)|*.csv|文本文件(*.txt)|*.txt”
如果真 (通用对话框1.打开 () ＝ 假)
返回 ()  ' 用户取消保存
文件路径 ＝ 通用对话框1.文件名
' 2. 打开文件并写入数据
文件号 ＝ 打开文件 (文件路径, #改写, )
如果真 (文件号 ＝ 0)
信息框 (“文件保存失败！”, #错误图标, , )
返回 ()

' 3. 写入表头（列标题）
列数 ＝ 超级列表框1.取列数 ()
计次循环首 (列数, j)
行数据 ＝ 行数据 ＋ 超级列表框1.取列标题 (j － 1) ＋ “,”  ' CSV用逗号分隔
计次循环尾 ()
行数据 ＝ 取文本左边 (行数据, 取文本长度 (行数据) － 1)  ' 去掉最后一个逗号
写文本行 (文件号, 行数据)
' 4. 写入所有行数据
行数 ＝ 超级列表框1.取表项数 ()
计次循环首 (行数, i)
行数据 ＝ “”
计次循环首 (列数, j)
行数据 ＝ 行数据 ＋ 超级列表框1.取标题 (i － 1, j － 1) ＋ “,”
计次循环尾 ()
行数据 ＝ 取文本左边 (行数据, 取文本长度 (行数据) － 1)
写文本行 (文件号, 行数据)
计次循环尾 ()
' 5. 关闭文件
关闭文件 (文件号)
信息框 (“数据保存成功！”, #信息图标, , )

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_保存_被单击<br /> .局部变量 文件号, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 行数据, 文本型<br /> .局部变量 文件路径, 文本型<br /> <br /> ' 1. 弹出保存文件对话框<br /> 通用对话框1.类型 ＝ 1  ' 1表示保存文件对话框<br /> 通用对话框1.过滤器 ＝ “CSV文件(*.csv)|*.csv|文本文件(*.txt)|*.txt”<br /> .如果真 (通用对话框1.打开 () ＝ 假)<br />     返回 ()  ' 用户取消保存<br /> .如果真结束<br /> 文件路径 ＝ 通用对话框1.文件名<br /> ' 2. 打开文件并写入数据<br /> 文件号 ＝ 打开文件 (文件路径, #改写, )<br /> .如果真 (文件号 ＝ 0)<br />     信息框 (“文件保存失败！”, #错误图标, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 3. 写入表头（列标题）<br /> 列数 ＝ 超级列表框1.取列数 ()<br /> .计次循环首 (列数, j)<br />     行数据 ＝ 行数据 ＋ 超级列表框1.取列标题 (j － 1) ＋ “,”  ' CSV用逗号分隔<br /> .计次循环尾 ()<br /> 行数据 ＝ 取文本左边 (行数据, 取文本长度 (行数据) － 1)  ' 去掉最后一个逗号<br /> 写文本行 (文件号, 行数据)<br /> <br /> ' 4. 写入所有行数据<br /> 行数 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (行数, i)<br />     行数据 ＝ “”<br />     .计次循环首 (列数, j)<br />         行数据 ＝ 行数据 ＋ 超级列表框1.取标题 (i － 1, j － 1) ＋ “,”<br />     .计次循环尾 ()<br />     行数据 ＝ 取文本左边 (行数据, 取文本长度 (行数据) － 1)<br />     写文本行 (文件号, 行数据)<br /> .计次循环尾 ()<br /> <br /> ' 5. 关闭文件<br /> 关闭文件 (文件号)<br /> 信息框 (“数据保存成功！”, #信息图标, , )

wlaita2286

你的猫 发表于 2025-5-17 22:30
[e=2].版本 2
.支持库 iext

感谢回答，就是不晓得再关闭事件里边执行怎么样了。现在是窗口关闭事件里边要执行保存