mdb 数据库排序问题

Mushiyi

  

打开数据表 (“gupiao”)
记录集.添加 ()
写表项文本 (“mingcheng”, 股票名称1 [2])
写表项文本 (“daima”, 编辑框_股票代号.内容)
写表项文本 (“xianjia”, 股价 [4])
写表项文本 (“zhangdie”, 到文本 (到数值 (股价 [4]) － 到数值 (股价 [3])))
调试输出 (到文本 (四舍五入 ( (到数值 (股价 [4]) － 到数值 (股价 [3])) ÷ 到数值 (股价 [3]) × 100, 2)) ＋ “%”)
写表项文本 (“zhangdiefu”, 到文本 (四舍五入 ( (到数值 (股价 [4]) － 到数值 (股价 [3])) ÷ 到数值 (股价 [3]) × 100, 2)) ＋ “%”)
写表项文本 (“chengjiaoliang”, 到文本 (四舍五入 (到数值 (股价 [9]) ÷ 1000000, 2)))
记录集.关闭 ()
显示股票 ()

子程序名	返回值类型	公开	备 注
显示股票

超级列表框_测算.全部删除 ()
打开数据表 (“gupiao”)
记录集.到首记录 ()
判断循环首 (记录集.尾记录后 ＝ 假)
超级列表框_测算.插入表项 (-1, , , , , )
超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 0, 取表项文本 (“ID”))
超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 1, 取表项文本 (“mingcheng”))
超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 2, 取表项文本 (“daima”))
超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 3, 取表项文本 (“xianjia”))
超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 4, 取表项文本 (“zhangdie”))
超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 5, 取表项文本 (“zhangdiefu”))
超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 6, 取表项文本 (“chengjiaoliang”))
记录集.到下一条 ()
判断循环尾 ()
_启动窗口.记录集.关闭 ()

子程序名	返回值类型	公开	备 注
_添加_被单击

变量名	类 型	静态	数组	备 注
股价	文本型		34

新浪股票最新行情 ()
显示股票 ()

子程序名	返回值类型	公开	备 注
取表项文本	文本型
参数名	类 型	参考	可空	数组	备 注
列名	文本型				数据列

变量名	类 型	静态	数组	备 注
表项文本	文本型

_启动窗口.记录集.读文本 (列名, 表项文本)
返回 (表项文本)

子程序名	返回值类型	公开	备 注
打开数据表
参数名	类 型	参考	可空	数组	备 注
数据表名	文本型

_启动窗口.记录集.打开 (数据表名, #数据表名 )

子程序名	返回值类型	公开	备 注
写表项文本
参数名	类 型	参考	可空	数组	备 注
字段名	文本型
欲写入文本	文本型

_启动窗口.记录集.写文本 (字段名, 欲写入文本)

子程序名	返回值类型	公开	备 注
_批量删除_被单击

变量名	类 型	静态	数组	备 注
i	整数型
sql语句	文本型
ID	文本型

记录集.打开 (“gupiao”, #数据表名, )
记录集.到首记录 ()
记录集.删除 (3)
记录集.关闭 ()
显示股票 ()

子程序名	返回值类型	公开	备 注
_排序_被单击

变量名	类 型	静态	数组	备 注
SQL	文本型

打开数据表 (“gupiao”)
记录集.到首记录 ()
调试输出 (“1”)
SQL ＝ “SELECT * FROM gupiao ORDEY BY zhangdiefu asc”
记录集.打开 (SQL, #SQL语句, )
记录集.打开并排序 (“gupiao”, “zhangdiefu asc”)
记录集.关闭 ()
显示股票 ()
调试输出 (“2”)

i支持库列表	支持库注释
eDB	数据库操作支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> 打开数据表 (“gupiao”)<br /> 记录集.添加 ()<br /> 写表项文本 (“mingcheng”, 股票名称1 [2])<br /> 写表项文本 (“daima”, 编辑框_股票代号.内容)<br /> 写表项文本 (“xianjia”, 股价 [4])<br /> 写表项文本 (“zhangdie”, 到文本 (到数值 (股价 [4]) － 到数值 (股价 [3])))<br /> 调试输出 (到文本 (四舍五入 ((到数值 (股价 [4]) － 到数值 (股价 [3])) ÷ 到数值 (股价 [3]) × 100, 2)) ＋ “%”)<br /> 写表项文本 (“zhangdiefu”, 到文本 (四舍五入 ((到数值 (股价 [4]) － 到数值 (股价 [3])) ÷ 到数值 (股价 [3]) × 100, 2)) ＋ “%”)<br /> 写表项文本 (“chengjiaoliang”, 到文本 (四舍五入 (到数值 (股价 [9]) ÷ 1000000, 2)))<br /> 记录集.关闭 ()<br /> 显示股票 ()<br /> <br /> .子程序 显示股票<br /> <br /> 超级列表框_测算.全部删除 ()<br /> 打开数据表 (“gupiao”)<br /> 记录集.到首记录 ()<br /> .判断循环首 (记录集.尾记录后 ＝ 假)<br />     超级列表框_测算.插入表项 (-1, , , , , )<br />     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 0, 取表项文本 (“ID”))<br />     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 1, 取表项文本 (“mingcheng”))<br />     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 2, 取表项文本 (“daima”))<br />     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 3, 取表项文本 (“xianjia”))<br />     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 4, 取表项文本 (“zhangdie”))<br />     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 5, 取表项文本 (“zhangdiefu”))<br />     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 6, 取表项文本 (“chengjiaoliang”))<br />     记录集.到下一条 ()<br /> .判断循环尾 ()<br /> _启动窗口.记录集.关闭 ()<br /> <br /> <br /> .子程序 _添加_被单击<br /> .局部变量 股价, 文本型, , "34"<br /> <br /> <br /> 新浪股票最新行情 ()<br /> 显示股票 ()<br /> <br /> <br /> .子程序 取表项文本, 文本型<br /> .参数 列名, 文本型, , 数据列<br /> .局部变量 表项文本, 文本型<br /> <br /> _启动窗口.记录集.读文本 (列名, 表项文本)<br /> 返回 (表项文本)<br /> <br /> .子程序 打开数据表<br /> .参数 数据表名, 文本型<br /> <br /> _启动窗口.记录集.打开 (数据表名, #数据表名)<br /> <br /> .子程序 写表项文本<br /> .参数 字段名, 文本型<br /> .参数 欲写入文本, 文本型<br /> <br /> _启动窗口.记录集.写文本 (字段名, 欲写入文本)<br /> <br /> .子程序 _批量删除_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 sql语句, 文本型<br /> .局部变量 ID, 文本型<br /> <br /> 记录集.打开 (“gupiao”, #数据表名, )<br /> 记录集.到首记录 ()<br /> 记录集.删除 (3)<br /> 记录集.关闭 ()<br /> 显示股票 ()<br /> <br /> <br /> .子程序 _排序_被单击<br /> .局部变量 SQL, 文本型<br /> <br /> 打开数据表 (“gupiao”)<br /> 记录集.到首记录 ()<br /> <br /> 调试输出 (“1”)<br /> <br /> SQL ＝ “SELECT * FROM gupiao ORDEY BY zhangdiefu asc”<br /> 记录集.打开 (SQL, #SQL语句, )<br /> 记录集.打开并排序 (“gupiao”, “zhangdiefu asc”)<br /> <br /> 记录集.关闭 ()<br /> 显示股票 ()<br /> 调试输出 (“2”)

吾名楠

附上源码

吾名楠

1. .版本 2
   
2. .支持库 eDB
   
3. .支持库 iext
   
4. 
   
5. .子程序 读取全部
   
6. .参数 CS排序字段, 文本型, 可空
   
7. .参数 CS倒序, 逻辑型, 可空
   
8. .局部变量 JU语句, 文本型
   
9. .局部变量 JU整数, 整数型
   
10. .局部变量 JU文本, 文本型
    
11. .局部变量 JU索引, 整数型
    
12. 
    
13. JU语句 ＝ “SELECT * FROM [任务] ”
    
14. .如果真 (删首尾空 (CS排序字段) ≠ “”)
    
15.     JU语句 ＝ JU语句 ＋ “ORDER BY [” ＋ CS排序字段 ＋ “] ”
    
16.     .如果 (CS倒序 ＝ 真)
    
17.         JU语句 ＝ JU语句 ＋ “DESC”
    
18.     .否则
    
19.         JU语句 ＝ JU语句 ＋ “asc”
    
20.     .如果结束
    
21. 
    
22. .如果真结束
    
23. .如果真 (QJ记录集.打开 (JU语句, #SQL语句, ) ＝ 假)
    
24.     信息框 (“读取数据失败。”, 0, , )
    
25.     返回 ()
    
26. .如果真结束
    
27. 超级列表框1.全部删除 ()
    
28. QJ记录集.到首记录 ()
    
29. 
    
30. .判断循环首 (QJ记录集.尾记录后 ＝ 假)
    
31.     QJ记录集.读整数 (“ID”, JU整数)
    
32.     JU索引 ＝ 超级列表框1.插入表项 (, 到文本 (JU整数), , , , )
    
33.     QJ记录集.读文本 (“任务名称”, JU文本)
    
34.     超级列表框1.置标题 (JU索引, 1, JU文本)
    
35. 
    
36.     QJ记录集.到下一条 ()
    
37. .判断循环尾 ()
    
38. QJ记录集.关闭 ()
    

复制代码

我感觉，可能是你那个 ORDER BY 写错了。

寒潮

语句没错，但是你在一个子程序里面排序，并不代表了数&#9755;据&#9755;库的数据就按照你的思路调整了，数&#9755;据&#9755;库内的数据实际上没有变的，需要读取出来后才是按照你要求的样子进行排序。
所以你按排序按钮打开并排序，然后关闭，到另一个子程序里面去读取，数&#9755;据仍然是原来的样子。建议这样修改：

另外尽量用一种方式操作数&#9755;据&#9755;表，要么是数据表方式，要么是SQL语句方式，尽量不要混用。
全SQL方式可参考一下：https://bbs.125.la/forum.php?mod=viewthread&tid=14432791&extra=

走一回

这些功能股票软件里都有的，何必自己重新做过呢？

Mushiyi

寒潮 发表于 2020-7-3 08:56
语句没错，但是你在一个子程序里面排序，并不代表了数&#9755;据&#9755;库的数据就按照你的思路调整了，数&# ...

还是排序不成功！

Mushiyi

走一回 发表于 2020-7-3 12:41
这些功能股票软件里都有的，何必自己重新做过呢？

我需要自己做个小玩具，需要这个排序的功能

寒潮

Mushiyi 发表于 2020-7-3 12:59
还是排序不成功！

把你的代码上了看看吧，

Mushiyi

1. .版本 2
   
2. .支持库 eDB
   
3. .支持库 spec
   
4. .支持库 iext
   
5. 
   
6. 打开数据表 (“gupiao”)
   
7. 记录集.添加 ()
   
8. 写表项文本 (“mingcheng”, 股票名称1 [2])
   
9. 写表项文本 (“daima”, 编辑框_股票代号.内容)
   
10. 写表项文本 (“xianjia”, 股价 [4])
    
11. 写表项文本 (“zhangdie”, 到文本 (到数值 (股价 [4]) － 到数值 (股价 [3])))
    
12. 调试输出 (到文本 (四舍五入 ((到数值 (股价 [4]) － 到数值 (股价 [3])) ÷ 到数值 (股价 [3]) × 100, 2)) ＋ “%”)
    
13. 写表项文本 (“zhangdiefu”, 到文本 (四舍五入 ((到数值 (股价 [4]) － 到数值 (股价 [3])) ÷ 到数值 (股价 [3]) × 100, 2)) ＋ “%”)
    
14. 写表项文本 (“chengjiaoliang”, 到文本 (四舍五入 (到数值 (股价 [9]) ÷ 1000000, 2)))
    
15. 记录集.关闭 ()
    
16. 显示股票 ()
    
17. 
    
18. .子程序 显示股票
    
19. 
    
20. 超级列表框_测算.全部删除 ()
    
21. 打开数据表 (“gupiao”)
    
22. 记录集.到首记录 ()
    
23. .判断循环首 (记录集.尾记录后 ＝ 假)
    
24.     超级列表框_测算.插入表项 (-1, , , , , )
    
25.     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 0, 取表项文本 (“ID”))
    
26.     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 1, 取表项文本 (“mingcheng”))
    
27.     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 2, 取表项文本 (“daima”))
    
28.     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 3, 取表项文本 (“xianjia”))
    
29.     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 4, 取表项文本 (“zhangdie”))
    
30.     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 5, 取表项文本 (“zhangdiefu”))
    
31.     超级列表框_测算.置标题 (超级列表框_测算.取表项数 () － 1, 6, 取表项文本 (“chengjiaoliang”))
    
32.     记录集.到下一条 ()
    
33. .判断循环尾 ()
    
34. _启动窗口.记录集.关闭 ()
    
35. 
    
36. 
    
37. .子程序 _添加_被单击
    
38. .局部变量 股价, 文本型, , "34"
    
39. 
    
40. 
    
41. 新浪股票最新行情 ()
    
42. 显示股票 ()
    
43. 
    
44. 
    
45. .子程序 取表项文本, 文本型
    
46. .参数 列名, 文本型, , 数据列
    
47. .局部变量 表项文本, 文本型
    
48. 
    
49. _启动窗口.记录集.读文本 (列名, 表项文本)
    
50. 返回 (表项文本)
    
51. 
    
52. .子程序 打开数据表
    
53. .参数 数据表名, 文本型
    
54. 
    
55. _启动窗口.记录集.打开 (数据表名, #数据表名)
    
56. 
    
57. .子程序 写表项文本
    
58. .参数 字段名, 文本型
    
59. .参数 欲写入文本, 文本型
    
60. 
    
61. _启动窗口.记录集.写文本 (字段名, 欲写入文本)
    
62. 
    
63. .子程序 _批量删除_被单击
    
64. .局部变量 i, 整数型
    
65. .局部变量 sql语句, 文本型
    
66. .局部变量 ID, 文本型
    
67. 
    
68. 记录集.打开 (“gupiao”, #数据表名, )
    
69. 记录集.到首记录 ()
    
70. 记录集.删除 (3)
    
71. 记录集.关闭 ()
    
72. 显示股票 ()
    
73. 
    
74. 
    
75. .子程序 _排序_被单击
    
76. .局部变量 SQL, 文本型
    
77. 
    
78. 打开数据表 (“gupiao”)
    
79. 记录集.到首记录 ()
    
80. 
    
81. 调试输出 (“1”)
    
82. 
    
83. SQL ＝ “SELECT * FROM gupiao ORDEY BY zhangdiefu asc”
    
84. 记录集.打开 (SQL, #SQL语句, )
    
85. 记录集.打开并排序 (“gupiao”, “zhangdiefu asc”)
    
86. 
    
87. 记录集.关闭 ()
    
88. 显示股票 ()
    
89. 调试输出 (“2”)
    

复制代码

走一回

二维数组排序(整数型或文本型整数)模块及例程.rar (542.62 KB, 下载次数: 4)

2020-7-3 17:45 上传

点击文件名下载附件




补充内容 (2020-7-3 17:47):
涨跌幅的百分号最后处理掉了,你需要的可以再 置标题 时重新添加上去.