大佬看下，一直报错

AVA520

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
当前月份	整数型
当月天数	整数型
当前年份	整数型
字段	字段信息	3
数据库路径	文本型

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

柱状图控件1.有无边框 ＝ 真
柱状图控件1.背景颜色 ＝ #白色
柱状图控件1.显示标题 ＝ 真
柱状图控件1.显示图例 ＝ 假
柱状图控件1.Y轴最大值 ＝ 100
柱状图控件1.Y轴刻度数 ＝ 10
柱状图控件1.显示标注 ＝ 真
获取并显示当前月份数据 ()
如果真 (文件是否存在 (取运行目录 () ＋ “\100测试数据库.edb”) ＝ 假)
字段 [1].名称 ＝ “日期”
字段 [1].类型 ＝ #文本型
字段 [2].名称 ＝ “字数”
字段 [2].类型 ＝ #文本型
创建 (“100测试数据库.edb”, 字段)
如果 (打开 (取运行目录 () ＋ “\100测试数据库.edb”, , , , , , ) ＝ 假)
信息框 (“数据库打开失败”, #错误图标, , )
信息框 (“数据库打开成功”, 0, , )

子程序名	返回值类型	公开	备 注
获取并显示当前月份数据

变量名	类 型	静态	数组	备 注
当前时间	日期时间型
下个月第一天	日期时间型
本月最后一天	日期时间型

' 获取当前系统时间
当前时间 ＝ 取现行时间 ()
当前年份 ＝ 取年份 (当前时间)
当前月份 ＝ 取月份 (当前时间)
' 计算当月天数
' 方法：计算下个月第一天，然后减去一天得到本月最后一天，再取日部分
下个月第一天 ＝ 到时间 (到文本 (当前年份) ＋ “-” ＋ 到文本 (当前月份 ＋ 1) ＋ “-1”)
本月最后一天 ＝ 增减时间 (下个月第一天, 5, -1)  ' 5表示日，-1表示减一天
当月天数 ＝ 取日 (本月最后一天)
' 更新柱状图显示
更新柱状图显示 (当月天数)

子程序名	返回值类型	公开	备 注
更新柱状图显示
参数名	类 型	参考	可空	数组	备 注
天数	整数型

变量名	类 型	静态	数组	备 注
i	整数型
当前日期	文本型
字数数据	整数型

' 清除之前的数据 - 通过重新设置X轴标注数量为0再设置为目标天数
柱状图控件1.X轴标注数量 ＝ 0
处理事件 ()  ' 确保控件更新
' 设置新的X轴标注数量
柱状图控件1.X轴标注数量 ＝ 天数
' 设置每个X轴标注的文字
计次循环首 (天数, i)
柱状图控件1.当前X轴标注索引 ＝ i － 1
柱状图控件1.当前X轴标注文字 ＝ 到文本 (i) ＋ “日”
计次循环尾 ()
' 设置图例数量为1（单一系列）
柱状图控件1.图例数量 ＝ 1
柱状图控件1.当前图例索引 ＝ 0
柱状图控件1.当前图例文字 ＝ 到文本 (当前年份) ＋ “年” ＋ 到文本 (当前月份) ＋ “月数据”
柱状图控件1.当前图例颜色 ＝ #红色
' 为每个X轴位置设置随机数据
计次循环首 (天数, i)
柱状图控件1.当前X轴标注索引 ＝ i － 1
柱状图控件1.当前图例索引 ＝ 0
当前日期 ＝ 到文本 (当前年份) ＋ “年” ＋ 到文本 (当前月份) ＋ “月” ＋ 到文本 (i) ＋ “日”  ' 生成10-100的随机数
字数数据 ＝ 从数据库获取字数 (当前日期)
柱状图控件1.当前数据值 ＝ 字数数据
计次循环尾 ()
' 更新标题
柱状图控件1.标题文字 ＝ 到文本 (当前年份) ＋ “年” ＋ 到文本 (当前月份) ＋ “月份数据统计 (” ＋ 到文本 (天数) ＋ “天)”
' 强制刷新显示
处理事件 ()

子程序名	返回值类型	公开	备 注
从数据库获取字数
参数名	类 型	参考	可空	数组	备 注
查询日期	文本型

变量名	类 型	静态	数组	备 注
数据库日期	文本型
字数字符串	文本型
记录号	整数型
找到	逻辑型
字数数据	整数型

找到 ＝ 假
字数数据 ＝ 0
到首记录 ()
计次循环首 (取记录数 (), 记录号)
数据库日期 ＝ 读 (“日期”)
字数字符串 ＝ 读 (“字数”)
如果真 (数据库日期 ＝ 查询日期)
找到 ＝ 真
字数数据 ＝ 到整数 (字数字符串)
返回 (到整数 (字数字符串))
跳出循环 ()
如果真 (记录号 ＜ 取记录数 ())
跳过 ()

计次循环尾 ()
返回 (字数数据)

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

标签1.标题 ＝ 到文本 (取文本长度 (文本区分_只取汉字 (编辑框1.内容)) ÷ 2)

子程序名	返回值类型	公开	备 注
__按钮_九月_被单击

变量名	类 型	静态	数组	备 注
当前记录号	整数型
当前日期文本	文本型

当前日期文本 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ()))
加空记录 ()
写 (“日期”, 当前日期文本)
写 (“字数”, 标签1.标题)
信息框 (“数据写入成功！”, 0, , )
获取并显示当前月份数据 ()

子程序名	返回值类型	公开	备 注
__按钮_十月_被单击

变量名	类 型	静态	数组	备 注
内容	文本型

到尾记录 ()
如果 (取记录数 () ＞ 0)
到尾记录 ()  ' 跳到最后一条记录
内容 ＝ “日期：” ＋ 读 (“日期”) ＋ “ 字数：” ＋ 读 (“字数”)
编辑框2.内容 ＝ 内容

编辑框2.内容 ＝ “数据库中没有记录”
获取并显示当前月份数据 ()
字数数据 ＝ 从数据库获取字数 (当前日期)这一段，一直报错，【错误 (10066): 用作提供参数数据的子语句未返回数据。】，看不懂这是啥意思，为啥我有返回值了还是报错

i支持库列表	支持库注释
EChartBar	数据图表支持库

.版本 2<br /> .支持库 EChartBar<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 当前月份, 整数型<br /> .程序集变量 当月天数, 整数型<br /> .程序集变量 当前年份, 整数型<br /> .程序集变量 字段, 字段信息, , "3"<br /> .程序集变量 数据库路径, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 柱状图控件1.有无边框 ＝ 真<br /> 柱状图控件1.背景颜色 ＝ #白色<br /> 柱状图控件1.显示标题 ＝ 真<br /> 柱状图控件1.显示图例 ＝ 假<br /> 柱状图控件1.Y轴最大值 ＝ 100<br /> 柱状图控件1.Y轴刻度数 ＝ 10<br /> 柱状图控件1.显示标注 ＝ 真<br /> 获取并显示当前月份数据 ()<br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\100测试数据库.edb”) ＝ 假)<br />     字段 [1].名称 ＝ “日期”<br />     字段 [1].类型 ＝ #文本型<br />     字段 [2].名称 ＝ “字数”<br />     字段 [2].类型 ＝ #文本型<br />     创建 (“100测试数据库.edb”, 字段)<br /> <br /> .如果真结束<br /> .如果 (打开 (取运行目录 () ＋ “\100测试数据库.edb”, , , , , , ) ＝ 假)<br />     信息框 (“数据库打开失败”, #错误图标, , )<br /> .否则<br />     信息框 (“数据库打开成功”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 获取并显示当前月份数据<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 下个月第一天, 日期时间型<br /> .局部变量 本月最后一天, 日期时间型<br /> <br /> ' 获取当前系统时间<br /> 当前时间 ＝ 取现行时间 ()<br /> 当前年份 ＝ 取年份 (当前时间)<br /> 当前月份 ＝ 取月份 (当前时间)<br /> <br /> ' 计算当月天数<br /> ' 方法：计算下个月第一天，然后减去一天得到本月最后一天，再取日部分<br /> 下个月第一天 ＝ 到时间 (到文本 (当前年份) ＋ “-” ＋ 到文本 (当前月份 ＋ 1) ＋ “-1”)<br /> 本月最后一天 ＝ 增减时间 (下个月第一天, 5, -1)  ' 5表示日，-1表示减一天<br /> 当月天数 ＝ 取日 (本月最后一天)<br /> <br /> ' 更新柱状图显示<br /> 更新柱状图显示 (当月天数)<br /> <br /> .子程序 更新柱状图显示<br /> .参数 天数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 当前日期, 文本型<br /> .局部变量 字数数据, 整数型<br /> <br /> ' 清除之前的数据 - 通过重新设置X轴标注数量为0再设置为目标天数<br /> 柱状图控件1.X轴标注数量 ＝ 0<br /> 处理事件 ()  ' 确保控件更新<br /> <br /> ' 设置新的X轴标注数量<br /> 柱状图控件1.X轴标注数量 ＝ 天数<br /> <br /> ' 设置每个X轴标注的文字<br /> .计次循环首 (天数, i)<br />     柱状图控件1.当前X轴标注索引 ＝ i － 1<br />     柱状图控件1.当前X轴标注文字 ＝ 到文本 (i) ＋ “日”<br /> .计次循环尾 ()<br /> <br /> ' 设置图例数量为1（单一系列）<br /> 柱状图控件1.图例数量 ＝ 1<br /> 柱状图控件1.当前图例索引 ＝ 0<br /> 柱状图控件1.当前图例文字 ＝ 到文本 (当前年份) ＋ “年” ＋ 到文本 (当前月份) ＋ “月数据”<br /> 柱状图控件1.当前图例颜色 ＝ #红色<br /> <br /> ' 为每个X轴位置设置随机数据<br /> .计次循环首 (天数, i)<br />     柱状图控件1.当前X轴标注索引 ＝ i － 1<br />     柱状图控件1.当前图例索引 ＝ 0<br />     当前日期 ＝ 到文本 (当前年份) ＋ “年” ＋ 到文本 (当前月份) ＋ “月” ＋ 到文本 (i) ＋ “日”  ' 生成10-100的随机数<br />     字数数据 ＝ 从数据库获取字数 (当前日期)<br /> <br />     柱状图控件1.当前数据值 ＝ 字数数据<br /> .计次循环尾 ()<br /> <br /> ' 更新标题<br /> 柱状图控件1.标题文字 ＝ 到文本 (当前年份) ＋ “年” ＋ 到文本 (当前月份) ＋ “月份数据统计 (” ＋ 到文本 (天数) ＋ “天)”<br /> ' 强制刷新显示<br /> 处理事件 ()<br /> <br /> .子程序 从数据库获取字数<br /> .参数 查询日期, 文本型<br /> .局部变量 数据库日期, 文本型<br /> .局部变量 字数字符串, 文本型<br /> .局部变量 记录号, 整数型<br /> .局部变量 找到, 逻辑型<br /> .局部变量 字数数据, 整数型<br /> <br /> 找到 ＝ 假<br /> 字数数据 ＝ 0<br /> <br /> 到首记录 ()<br /> .计次循环首 (取记录数 (), 记录号)<br />     数据库日期 ＝ 读 (“日期”)<br />     字数字符串 ＝ 读 (“字数”)<br />     .如果真 (数据库日期 ＝ 查询日期)<br />         找到 ＝ 真<br />         字数数据 ＝ 到整数 (字数字符串)<br />         返回 (到整数 (字数字符串))<br /> <br />     .如果真结束<br />     跳出循环 ()<br />     .如果真 (记录号 ＜ 取记录数 ())<br />         跳过 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (字数数据)<br /> <br /> <br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> 标签1.标题 ＝ 到文本 (取文本长度 (文本区分_只取汉字 (编辑框1.内容)) ÷ 2)<br /> <br /> <br /> .子程序 __按钮_九月_被单击<br /> .局部变量 当前记录号, 整数型<br /> .局部变量 当前日期文本, 文本型<br /> <br /> 当前日期文本 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ()))<br /> 加空记录 ()<br /> 写 (“日期”, 当前日期文本)<br /> 写 (“字数”, 标签1.标题)<br /> 信息框 (“数据写入成功！”, 0, , )<br /> 获取并显示当前月份数据 ()<br /> <br /> <br /> .子程序 __按钮_十月_被单击<br /> .局部变量 内容, 文本型<br /> <br /> 到尾记录 ()<br /> .如果 (取记录数 () ＞ 0)<br />     到尾记录 ()  ' 跳到最后一条记录<br />     内容 ＝ “日期：” ＋ 读 (“日期”) ＋ “ 字数：” ＋ 读 (“字数”)<br />     编辑框2.内容 ＝ 内容<br /> <br /> .否则<br />     编辑框2.内容 ＝ “数据库中没有记录”<br /> .如果结束<br /> 获取并显示当前月份数据 ()<br /> 字数数据 ＝ 从数据库获取字数 (当前日期)这一段，一直报错，【错误(10066): 用作提供参数数据的子语句未返回数据。】，看不懂这是啥意思，为啥我有返回值了还是报错

Ruang

从数据库获取字数  子程序未添加返回值
字数数据 ＝ 从数据库获取字数 (当前日期)    字数数据 变量未收到子程序的返回值