超级列表框怎么删除不了数据呢?请大神帮忙,谢谢

aimisi530 · 发表于 2018-11-5 20:20:33

.版本 2
.支持库 iext
.程序集窗口程序集_窗口_商品资料
.子程序 _窗口_商品资料_创建完毕
全局_sql ＝ “select * from 商品资料管理”
全局_数据库句柄＝全局_数据库.cha询 (全局_sql)
超级列表框_商品资料管理.全部删除 ()
.判断循环首 (全局_数据库.尾记录后 (全局_数据库句柄) ＝假)
全局_句柄＝超级列表框_商品资料管理.插入表项 (, 全局_数据库.读 (全局_数据库句柄, “商品ID”), , , , )
超级列表框_商品资料管理.置标题 (全局_句柄, 1, 全局_数据库.读 (全局_数据库句柄, “商品名称”))
超级列表框_商品资料管理.置标题 (全局_句柄, 2, 全局_数据库.读 (全局_数据库句柄, “商品规格”))
超级列表框_商品资料管理.置标题 (全局_句柄, 3, 全局_数据库.读 (全局_数据库句柄, “单位”))
超级列表框_商品资料管理.置标题 (全局_句柄, 4, 到文本 (全局_数据库.读 (全局_数据库句柄, “进价”)))
超级列表框_商品资料管理.置标题 (全局_句柄, 5, 到文本 (全局_数据库.读 (全局_数据库句柄, “售价”)))
超级列表框_商品资料管理.置标题 (全局_句柄, 6, 全局_数据库.读 (全局_数据库句柄, “初始库存”))
超级列表框_商品资料管理.置标题 (全局_句柄, 7, 全局_数据库.读 (全局_数据库句柄, “供应商”))
超级列表框_商品资料管理.置标题 (全局_句柄, 8, 全局_数据库.读 (全局_数据库句柄, “录入人员”))
超级列表框_商品资料管理.置标题 (全局_句柄, 9, 全局_数据库.读 (全局_数据库句柄, “备注”))
全局_数据库.到后一记录 (全局_数据库句柄)
.判断循环尾 ()
全局_数据库.关闭记录集 (全局_数据库句柄)
.如果 (全局_当前用户＝ “管理员”)
删除商品.可视＝真
.否则
删除商品.可视＝假
.如果结束
.如果 (全局_当前用户＝ “管理员”)
新增商品.可视＝真
.否则
新增商品.可视＝假
.如果结束

标签_表项数.标题＝到文本 (超级列表框_商品资料管理.取表项数 ())

.子程序 _删除商品_被选择
.局部变量商品ID, 文本型
.如果真 (超级列表框_商品资料管理.现行选中项 ≠ -1)
.如果真 (全局_当前用户＝ “管理员”)
      .如果真 (信息框 (“是否删除该条商品信息”, #是否钮＋ #询问图标, “警告”, ) ＝ #是否钮)
         商品ID ＝超级列表框_商品资料管理.取标题 (超级列表框_商品资料管理.现行选中项, 0)
         全局_sql ＝ “delete * from 商品资料管理 where 商品ID='” ＋商品ID ＋ “'”
         .如果 (全局_数据库.执行 (全局_sql, ) ＝真)
            _窗口_商品资料_创建完毕 ()
            信息框 (“删除商品资料成功!”, 64, “提示”, )
         .否则
            信息框 (“删除商品资料失败!”, 64, “提示”, )
         .如果结束
      .如果真结束
.如果真结束
.如果真结束

大司命 · 发表于 2018-11-5 20:46:03

超级列表框_商品资料管理.删除表项 (超级列表框_商品资料管理.现行选中项)

aimisi530 · 发表于 2018-11-5 21:06:08

删除表中的记录了,access的里面的数据没有删除

aimisi530 · 发表于 2018-11-5 21:11:14

大司命发表于 2018-11-5 20:46
超级列表框_商品资料管理.删除表项 (超级列表框_商品资料管理.现行选中项)

删除表中的记录了,access的里面的数据没有删除

1182410163 · 发表于 2018-11-5 21:16:20

检查字段属性是否填写错误

aimisi530 · 发表于 2018-11-5 21:23:10

1182410163 发表于 2018-11-5 21:16
检查字段属性是否填写错误

字段属性没有错误,楼上那位大神教了之后表中的数据可以删除,从新点击打开又恢复了,这就是access里面的数据没有被删除

大司命 · 发表于 2018-11-5 21:48:04

全局_sql ＝ “delete from 商品资料管理 where 商品ID='” ＋商品ID ＋ “'”

aimisi530 · 发表于 2018-11-5 22:27:21

附

仓库管理系统.rar (1.41 MB, 下载次数: 2)

走一回 · 发表于 2018-11-5 23:58:47

全局_sql ＝ “delete from 商品资料管理 where 商品ID='” ＋商品ID ＋ “'”

这个里的商品ID 的字段类型是数值型还是文本型,如果是数值型,那就用
全局_sql ＝ “delete from 商品资料管理 where 商品ID=” ＋商品ID

补充内容 (2018-11-5 23:59):
也可以把sql语句输出一下,再粘贴到数据库里去测试能不能删除记录.

aimisi530 · 发表于 2018-11-6 02:11:12

走一回发表于 2018-11-5 23:58
全局_sql ＝ “delete from 商品资料管理 where 商品ID='” ＋商品ID ＋ “'”

这个里的商品ID 的字 ...

大神你好,商品ID是文本类型的

		自动登录	找回密码
密码			注册

[易语言] 超级列表框怎么删除不了数据呢?请大神帮忙,谢谢