帮忙看看这段代码哪里有问题

473188067 · 发表于 2013-6-5 10:41:34

现在是点击后提示新增成功，但数据库中却没有增加记录。
请看看是哪里出问题了？
[e]
.版本 2
.支持库 eDB

.子程序 _保存_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型

.如果真 (备忘录新增数据库连接1.连接Access (数据库路径, “hf123456789”) ＝真)
备忘录新增记录集1.置连接 (备忘录新增数据库连接1)
备忘录新增记录集1.打开 (“bwl”, #数据表名, )
.如果真 (日期.内容＝ “” 或主题.内容＝ “”)
信息框 (“备忘录日期、主题不能为空。”, #信息图标, “提示”)
日期.获取焦点 ()
返回 ()
.如果真结束
备忘录新增记录集1.添加 ()
.如果真 (备忘录新增记录集1.写文本 (“日期”, 日期.内容) ＝真且备忘录新增记录集1.写文本 (“主题”, 主题.内容) ＝真且备忘录新增记录集1.写文本 (“内容”, 内容.内容) ＝真且备忘录新增记录集1.写文本 (“反馈”, 反馈.内容) ＝真)
信息框 (“备忘录-” ＋主题.内容＋ “-新增成功。”, #信息图标, “提示”)
备忘录新增记录集1.更新 ()
备忘录新增记录集1.关闭 ()
备忘录新增数据库连接1.关闭 ()
_启动窗口._高级选择夹1_子夹头被单击 (1)
备忘录新增窗口1.销毁 ()
返回 ()
.如果真结束
信息框 (“备忘录新增失败。”, #信息图标, “提示”)
备忘录新增记录集1.关闭 ()
备忘录新增数据库连接1.关闭 ()
_启动窗口._高级选择夹1_子夹头被单击 (1)
备忘录新增窗口1.销毁 ()
返回 ()

[/e]

补充内容 (2013-6-7 16:43):
我不知道是怎么回事，今天没有这个问题了，采纳2楼的为标准答案吧，以前也犯过这个错误。