外部超级列表框_保存数据 当输入指定列不保存，BUG

2442295093

超级列表框保存BUG.rar (144.17 KB, 下载次数: 32)

2016-11-19 09:45 上传

点击文件名下载附件 外部超级列表框_保存数据 (超级列表框1.取窗口句柄 (), 取运行目录 () ＋ “\121.edb”, 0, 2)

当输入了指定列不保存的时候，下次读取的时候，就会发现 后面的列的数据跑到前面去了，。附上测试源码

fwp332211

用外部超级列表框类去处理如何？
有没有试试导出到excel 然后完了再导入呗

公竞渡河

感谢分享，很给力！

88884217

好难哦 。。。。

萧阳天

已修正

1. 
   
2. <P>.版本 2</P>
   
3. <P>.子程序 外部超级列表框_保存数据, 逻辑型, 公开, 如果要读入的话,直接 超级列表框.表项=读入文件(C:\001.ebb) 即可
   
4. .参数 超级列表框句柄, 整数型, , 超级列表框句柄
   
5. .参数 要保存的位置, 文本型, , 如: C:\001.ebb 即可
   
6. .参数 列表类型, 整数型, 可空, 默认为"报表列表框"  0=报表列表框 1=大图标列表框
   
7. .参数 不保存指定列的索引, 整数型, 可空, 输入不保存指定列的索引,如:我不保存第1列,直接输入0,因为索引是多0开始的
   
8. .局部变量 局_列数, 整数型
   
9. .局部变量 局_字节集, 字节集, , , 超级列表框列数
   
10. .局部变量 局_表项计次, 整数型
    
11. .局部变量 局_列计次, 整数型
    
12. .局部变量 局_文件号, 整数型
    
13. .局部变量 外部超级列表框, 外部超级列表框
    
14. .局部变量 局_文本, 文本型</P>
    
15. <P>外部超级列表框.初始化 (超级列表框句柄)
    
16. 局_文件号 ＝ 打开内存文件 ()
    
17. .判断开始 (列表类型 ＝ 0)
    
18.     局_列数 ＝ 外部超级列表框.取列数 () － 1
    
19.     .计次循环首 (外部超级列表框.取表项数 (), 局_表项计次)
    
20.         局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 0)
    
21.         插入字节集 (局_文件号, { 0 } ＋ 到字节集 (外部超级列表框.取图片 (局_表项计次 － 1, 0)) ＋ { 255, 255, 255, 255, 0, 0, 0, 0 } ＋ 到字节集 (外部超级列表框.取表项数值 (局_表项计次 － 1)) ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
22.         .如果 (是否为空 (不保存指定列的索引))
    
23.             .计次循环首 (局_列数, 局_列计次)
    
24.                 局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 局_列计次)
    
25.                 插入字节集 (局_文件号, { 1 } ＋ 到字节集 (外部超级列表框.取图片 (局_表项计次 － 1, 局_列计次)) ＋ { 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
26.             .计次循环尾 ()
    
27.         .否则
    
28.             .计次循环首 (局_列数, 局_列计次)
    
29.                 .如果 (不保存指定列的索引 ＝ 局_列计次)
    
30.                     局_文本 ＝ “”
    
31.                 .否则
    
32.                     局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 局_列计次)
    
33.                 .如果结束
    
34.                 插入字节集 (局_文件号, { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
35.             .计次循环尾 ()
    
36.         .如果结束</P>
    
37. <P>    .计次循环尾 ()
    
38. .判断 (列表类型 ＝ 1)
    
39.     .计次循环首 (外部超级列表框.取表项数 (), 局_表项计次)
    
40.         局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 0)
    
41.         插入字节集 (局_文件号, { 0 } ＋ 到字节集 (外部超级列表框.取图片 (局_表项计次 － 1, 0)) ＋ { 255, 255, 255, 255, 0, 0, 0, 0 } ＋ 到字节集 (外部超级列表框.取表项数值 (局_表项计次 － 1)) ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
42.     .计次循环尾 ()
    
43. .默认</P>
    
44. <P>.判断结束
    
45. 移动读写位置 (局_文件号, #文件首, 0)
    
46. 局_字节集 ＝ 读入字节集 (局_文件号, 取文件长度 (局_文件号))
    
47. .如果 (写到文件 (要保存的位置, 局_字节集))
    
48.     关闭文件 (局_文件号)
    
49.     返回 (真)
    
50. .否则
    
51.     关闭文件 (局_文件号)
    
52. .如果结束
    
53. 返回 (假)</P>
    
54. <P> </P>

复制代码

Cand

用外部超级列表框类去处理如何？
有没有试试导出到excel 然后完了再导入呗

Cand

我曾经测试也是这样就放弃了。。。