请大佬帮我看看代码出现什么问题
现在出现的问题是，我把所有的编辑框填写了，点保存还是出现《请认真填写表里的所有信息再保存》。请问各位大佬帮我看下哪里出现了问题.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 记录集句柄, 整数型
.子程序 __启动窗口_创建完毕
.如果真 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data.mdb”, , , , ))
记录集句柄 ＝ 外部数据库1.查询 (“select*from data”)
.如果真结束
.子程序 读数据并显示当前记录
编辑框1.内容 ＝ 外部数据库1.读 (记录集句柄, 1)
编辑框2.内容 ＝ 外部数据库1.读 (记录集句柄, 2)
编辑框3.内容 ＝ 外部数据库1.读 (记录集句柄, 3)
编辑框4.内容 ＝ 外部数据库1.读 (记录集句柄, 4)
编辑框5.内容 ＝ 外部数据库1.读 (记录集句柄, 5)
编辑框6.内容 ＝ 外部数据库1.读 (记录集句柄, 6)
编辑框7.内容 ＝ 外部数据库1.读 (记录集句柄, 7)
编辑框8.内容 ＝ 外部数据库1.读 (记录集句柄, 7)
.子程序 _保存_被单击
ACCESS数据库添加数据 ()
.子程序 ACCESS数据库添加数据
.如果真 (外部数据库1.执行 (“INSERT INTO data” ＋ “(姓名,电话号码,维修编号,品牌,故障代码,主板型号,维修过程,日期) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框4.内容 ＋ “','” ＋ 编辑框5.内容 ＋ “','” ＋ 编辑框6.内容 ＋ “','” ＋ 编辑框7.内容 ＋ “','” ＋ 编辑框8.内容 ＋ “')”, ) ＝ 假)
信息框 (“请认真填写表里的所有信息再保存”, #信息图标, “失败”)
返回 ()
.如果真结束
信息框 (“添加成功”, #信息图标, “成功”)
.子程序 _前次记录_被单击
外部数据库1.到前一记录 (记录集句柄)
.如果 (外部数据库1.首记录前 (记录集句柄))
信息框 (“前面已没有数据”, 0, )
.否则
外部数据库1.到首记录 (记录集句柄)
.如果结束
读数据并显示当前记录 ()
.子程序 _后次记录_被单击
外部数据库1.到后一记录 (记录集句柄)
.如果 (外部数据库1.尾记录后 (记录集句柄))
信息框 (“已经是最后了”, 0, )
.否则
外部数据库1.到尾记录 (记录集句柄)
.如果结束
读数据并显示当前记录 ()
.子程序 __启动窗口_可否被关闭, 逻辑型
外部数据库1.关闭记录集 (记录集句柄)
外部数据库1.关闭 ()
.子程序 _日期框1_选择日期被改变
编辑框8.内容 ＝ 时间到文本 (日期框1.今天, #日期部分)
.子程序 _查询_被单击
载入 (维修查询, , 真)
如果真 (外部数据库1.执行 (“INSERT INTO data” ＋ “(姓名,电话号码,维修编号,品牌,故障代码,主板型号,维修过程,日期) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框4.内容 ＋ “','” ＋ 编辑框5.内容 ＋ “','” ＋ 编辑框6.内容 ＋ “','” ＋ 编辑框7.内容 ＋ “','” ＋ 编辑框8.内容 ＋ “')”, ) ＝ 假)
这里语法错了.没执行成功 哈哈我来了 发表于 2022-11-4 18:03
如果真 (外部数据库1.执行 (“INSERT INTO data” ＋ “(姓名,电话号码,维修编号,品牌,故障代码,主板型号 ...
谢谢，我找到问题了
感谢分享，论坛有你更精彩
页:
[1]