sql执行语句，为什么会跳过子程序

huanghua8001

在点击图片框的时候为什么执行完删除表却不执行查询了，设置的是一个刷新键！
在删除完表内容之后，数据库句柄也读取成功了，可是直接就跳过了查询子程序，不进入，是为什么呢？
求大神给指点一下！！

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .如果真 (图标列表框.现行选中项 ＝ 1)
   
5.     子程序_删除表 (超级列表框1)
   
6.     SQL_句柄 ()
   
7.     SQL_读取信息 (全局_数据库句柄, “oa_kehu”, 超级列表框1)
   
8. 
   
9. 
   
10. .版本 2
    
11. .支持库 mysql
    
12. 
    
13. .版本 2
    
14. .支持库 iext
    
15. .支持库 spec
    
16. 
    
17. .子程序 子程序_删除表
    
18. .参数 参数_超级列表框, 超级列表框
    
19. .局部变量 lie, 整数型
    
20. 
    
21. 参数_超级列表框.全部删除 ()
    
22. .计次循环首 (参数_超级列表框.取列数 (), )
    
23.     参数_超级列表框.删除列 (0)
    
24.     调试输出 (“删除次数--” ＋ 到文本 (参数_超级列表框.取列数 ()))
    
25. .计次循环尾 ()
    
26. 
    
27. 
    
28. .版本 2
    
29. .支持库 iext
    
30. .支持库 mysql
    
31. 
    
32. .子程序 SQL_读取信息
    
33. .参数 参数_数据库句柄, 整数型
    
34. .参数 参数_表名, 文本型
    
35. .参数 参数_超级列表框, 超级列表框
    
36. .局部变量 字段数, 整数型
    
37. .局部变量 i, 整数型
    
38. .局部变量 值, 文本型
    
39. .局部变量 列名, 文本型
    
40. .局部变量 局部_记录集, 整数型
    
41. .局部变量 局部_集行数, 整数型
    
42. .局部变量 S, 整数型
    
43. 
    
44. 全局_SQL ＝ “select * from  ” ＋ 参数_表名
    
45. .如果真 (执行SQL语句 (参数_数据库句柄, 全局_SQL))  ' -------------查询表是否成功
    
46.     局部_记录集 ＝ 取记录集 (参数_数据库句柄)  ' --------------------- 读取记录集句柄
    
47.     局部_集行数 ＝ 取记录集行数 (局部_记录集)  ' ----------------------读取记录集行数
    
48.     字段数 ＝ 取字段总数 (局部_记录集)  ' ---------------------------读取字段总数
    
49.     .计次循环首 (局部_集行数, )  ' --------------------------------循环读取到的行数
    
50.         S ＝ 参数_超级列表框.插入表项 (, , , , , )  ' ------------------索引
    
51.         .计次循环首 (字段数, i)  ' ------------------------------循环读取字段数量
    
52.             .如果 (序号到字段名 (局部_记录集, i － 1, 值) ＝ 真)  ' 读取序号得到列名称
    
53.                 读字段值 (局部_记录集, 值, 列名)  ' -------------------读取列的字段数值
    
54.                 参数_超级列表框.置标题 (S, i － 1, 列名)  ' --------------插入到列表框
    
55.             .否则
    
56. 
    
57.             .如果结束
    
58. 
    
59.         .计次循环尾 ()
    
60.         到下一行 (局部_记录集)
    
61.     .计次循环尾 ()
    
62. 
    
63. 
    
64. .版本 2
    
65. .支持库 mysql
    
66. .支持库 spec
    
67. 
    
68. .子程序 SQL_句柄, 整数型
    
69. 
    
70. 全局_数据库句柄 ＝ 连接MySql (“127.0.0.1”, “oa_xinhua”, “123456”, “oa_xinhua”, 3306)
    
71. 执行SQL语句 (全局_数据库句柄, “SET names GBK”)
    
72. .如果 (全局_数据库句柄 ＝ 0)
    
73.     断开MySql (全局_数据库句柄)
    
74.     信息框 (“连接错误”, 0, , )
    
75.     结束 ()
    
76.     返回 (0)
    
77. .否则
    
78.     调试输出 (全局_数据库句柄)
    
79.     返回 (全局_数据库句柄)
    
80. 
    
81. 
    

复制代码

huanghua8001

已经解决了，删除错了！！