请大佬帮我看看代码出现什么问题

傲雪漂流

现在出现的问题是，我把所有的编辑框填写了，点保存还是出现《请认真填写表里的所有信息再保存》。请问各位大佬帮我看下哪里出现了问题

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
记录集句柄	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果真 (外部数据库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.今天, #日期部分 )

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

载入 (维修查询, , 真)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 记录集句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data.mdb”, , , , ))<br />     记录集句柄 ＝ 外部数据库1.查询 (“select*from data”)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 读数据并显示当前记录<br /> <br /> 编辑框1.内容 ＝ 外部数据库1.读 (记录集句柄, 1)<br /> 编辑框2.内容 ＝ 外部数据库1.读 (记录集句柄, 2)<br /> 编辑框3.内容 ＝ 外部数据库1.读 (记录集句柄, 3)<br /> 编辑框4.内容 ＝ 外部数据库1.读 (记录集句柄, 4)<br /> 编辑框5.内容 ＝ 外部数据库1.读 (记录集句柄, 5)<br /> 编辑框6.内容 ＝ 外部数据库1.读 (记录集句柄, 6)<br /> 编辑框7.内容 ＝ 外部数据库1.读 (记录集句柄, 7)<br /> 编辑框8.内容 ＝ 外部数据库1.读 (记录集句柄, 7)<br /> <br /> <br /> .子程序 _保存_被单击<br /> <br /> ACCESS数据库添加数据 ()<br /> <br /> .子程序 ACCESS数据库添加数据<br /> <br /> <br /> .如果真 (外部数据库1.执行 (“INSERT INTO data” ＋ “  (姓名,电话号码,维修编号,品牌,故障代码,主板型号,维修过程,日期) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框4.内容 ＋ “','” ＋ 编辑框5.内容 ＋ “','” ＋ 编辑框6.内容 ＋ “','” ＋ 编辑框7.内容 ＋ “','” ＋ 编辑框8.内容 ＋ “')”, ) ＝ 假)<br />     信息框 (“请认真填写表里的所有信息再保存”, #信息图标, “失败”)<br />     返回 ()<br /> .如果真结束<br /> 信息框 (“添加成功”, #信息图标, “成功”)<br /> <br /> .子程序 _前次记录_被单击<br /> <br /> 外部数据库1.到前一记录 (记录集句柄)<br /> .如果 (外部数据库1.首记录前 (记录集句柄))<br />     信息框 (“前面已没有数据”, 0, )<br /> .否则<br />     外部数据库1.到首记录 (记录集句柄)<br /> .如果结束<br /> 读数据并显示当前记录 ()<br /> <br /> <br /> .子程序 _后次记录_被单击<br /> <br /> 外部数据库1.到后一记录 (记录集句柄)<br /> .如果 (外部数据库1.尾记录后 (记录集句柄))<br />     信息框 (“已经是最后了”, 0, )<br /> .否则<br />     外部数据库1.到尾记录 (记录集句柄)<br /> .如果结束<br /> 读数据并显示当前记录 ()<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 外部数据库1.关闭记录集 (记录集句柄)<br /> 外部数据库1.关闭 ()<br /> <br /> .子程序 _日期框1_选择日期被改变<br /> <br /> 编辑框8.内容 ＝ 时间到文本 (日期框1.今天, #日期部分)<br /> <br /> <br /> .子程序 _查询_被单击<br /> <br /> 载入 (维修查询, , 真)

哈哈我来了

如果真 (外部数据库1.执行 (“INSERT INTO data” ＋ “  (姓名,电话号码,维修编号,品牌,故障代码,主板型号,维修过程,日期) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框4.内容 ＋ “','” ＋ 编辑框5.内容 ＋ “','” ＋ 编辑框6.内容 ＋ “','” ＋ 编辑框7.内容 ＋ “','” ＋ 编辑框8.内容 ＋ “')”, ) ＝ 假)

这里语法错了.没执行成功

傲雪漂流

哈哈我来了 发表于 2022-11-4 18:03
如果真 (外部数据库1.执行 (“INSERT INTO data” ＋ “  (姓名,电话号码,维修编号,品牌,故障代码,主板型号 ...

谢谢，我找到问题了

18166453951

感谢分享，论坛有你更精彩