关于一个accessxx库复杂cha询功能实现的求助 - 精易论坛

子程序名	返回值类型	公开	备注
_组合框1_列表项被选择

变量名	类型	静态	数组	备注
局_SQL语句	文本型
局_查询结果_前	文本型
局_查询结果_后	文本型
局_材料	文本型
局_级别_数组	整数型		0
局_判断数字	整数型
局_取出_数组	整数型		0
局_计次	整数型
a	整数型
b	整数型
前一个温度	整数型
后一个温度	整数型

’判断输入的温度在哪两个数值之间，感谢寒潮大佬指导
局_级别_数组＝ { -200, -125, -75, 25, 100, 150, 200, 250, 300, 350, 400, 450, 500, 550, 600, 650, 700, 750, 800, 850 }
局_判断数字＝到数值 (编辑框4.内容)
重定义数组 (局_取出_数组, 假, 0)

计次循环首 (取数组成员数 (局_级别_数组), 局_计次)

如果真 (局_计次＋ 1 ≤ 取数组成员数 (局_级别_数组))

如果真 (局_级别_数组 [局_计次] ≤ 局_判断数字且局_级别_数组 [局_计次＋ 1] ≥ 局_判断数字)

加入成员 (局_取出_数组, 局_级别_数组 [局_计次])

a ＝局_级别_数组 [局_计次]

加入成员 (局_取出_数组, 局_级别_数组 [局_计次＋ 1])

b ＝局_级别_数组 [局_计次＋ 1]

计次循环尾 ()
调试输出 (局_取出_数组)
调试输出 (a)
调试输出 (b)
前一个温度＝ a ' 这里已经取出输入温度在数据库里前一个温度的值
后一个温度＝ b ' 这里已经取出输入温度在数据库里后一个温度的值
局_材料＝组合框1.取项目文本 (组合框1.现行选中项)
局_SQL语句＝ “SELECT [” ＋到文本 (前一个温度) ＋ “℃] ” ＋ “FROM 弹性模量 ” ＋ “WHERE 材料 like ” ＋ #引号＋局_材料＋ #引号’sql语句：select [温度] FROM 弹性模量 like 材料
调试输出 (局_SQL语句)
记录集1.打开 (局_SQL语句, #SQL语句, )
记录集1.到首记录 ()
记录集1.读文本 (0, 局_查询结果_前)
局_材料＝组合框3.取项目文本 (组合框3.现行选中项)
局_SQL语句＝ “SELECT [” ＋到文本 (后一个温度) ＋ “℃] ” ＋ “FROM 弹性模量 ” ＋ “WHERE 材料 like ” ＋ #引号＋局_材料＋ #引号
调试输出 (局_SQL语句)
记录集1.打开 (局_SQL语句, #SQL语句, )
记录集1.到首记录 ()
记录集1.读文本 (0, 局_查询结果_后)
编辑框5.内容＝到文本 (到数值 (局_查询结果_前) �� (到数值 (局_查询结果_前) －到数值 (局_查询结果_后)) ÷ (b － a) �� (到数值 (编辑框4.内容) － a))‘这里是查询前一个温度和后一个温度之后，经过计算得到的最终想要的值

i支持库列表	支持库注释
spec	特殊功能支持库
eDB	数据库操作支持库

.版本 2<br />
.支持库 spec<br />
.支持库 eDB<br />
<br />
.子程序 _组合框1_列表项被选择<br />
.局部变量 局_SQL语句, 文本型<br />
.局部变量 局_查询结果_前, 文本型<br />
.局部变量 局_查询结果_后, 文本型<br />
.局部变量 局_材料, 文本型<br />
.局部变量 局_级别_数组, 整数型, , "0"<br />
.局部变量 局_判断数字, 整数型<br />
.局部变量 局_取出_数组, 整数型, , "0"<br />
.局部变量 局_计次, 整数型<br />
.局部变量 a, 整数型<br />
.局部变量 b, 整数型<br />
.局部变量 前一个温度, 整数型<br />
.局部变量 后一个温度, 整数型<br />
<br />
’判断输入的温度在哪两个数值之间，感谢寒潮大佬指导<br />
局_级别_数组 ＝ { -200, -125, -75, 25, 100, 150, 200, 250, 300, 350, 400, 450, 500, 550, 600, 650, 700, 750, 800, 850 }<br />
局_判断数字 ＝ 到数值 (编辑框4.内容)<br />
重定义数组 (局_取出_数组, 假, 0)<br />
.计次循环首 (取数组成员数 (局_级别_数组), 局_计次)<br />
    .如果真 (局_计次 ＋ 1 ≤ 取数组成员数 (局_级别_数组))<br />
        .如果真 (局_级别_数组 [局_计次] ≤ 局_判断数字 且 局_级别_数组 [局_计次 ＋ 1] ≥ 局_判断数字)<br />
            加入成员 (局_取出_数组, 局_级别_数组 [局_计次])<br />
            a ＝ 局_级别_数组 [局_计次]<br />
            加入成员 (局_取出_数组, 局_级别_数组 [局_计次 ＋ 1])<br />
            b ＝ 局_级别_数组 [局_计次 ＋ 1]<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
调试输出 (局_取出_数组)<br />
调试输出 (a)<br />
调试输出 (b)<br />
前一个温度 ＝ a  ' 这里已经取出输入温度在数据库里前一个温度的值<br />
后一个温度 ＝ b  ' 这里已经取出输入温度在数据库里后一个温度的值<br />
<br />
局_材料 ＝ 组合框1.取项目文本 (组合框1.现行选中项)<br />
局_SQL语句 ＝ “SELECT [” ＋ 到文本 (前一个温度) ＋ “℃] ” ＋ “FROM 弹性模量 ” ＋ “WHERE 材料 like ” ＋ #引号 ＋ 局_材料 ＋ #引号’sql语句：select [温度] FROM 弹性模量 like 材料<br />
调试输出 (局_SQL语句)<br />
记录集1.打开 (局_SQL语句, #SQL语句, )<br />
记录集1.到首记录 ()<br />
记录集1.读文本 (0, 局_查询结果_前)<br />
<br />
<br />
局_材料 ＝ 组合框3.取项目文本 (组合框3.现行选中项)<br />
局_SQL语句 ＝ “SELECT [” ＋ 到文本 (后一个温度) ＋ “℃] ” ＋ “FROM 弹性模量 ” ＋ “WHERE 材料 like ” ＋ #引号 ＋ 局_材料 ＋ #引号<br />
调试输出 (局_SQL语句)<br />
记录集1.打开 (局_SQL语句, #SQL语句, )<br />
记录集1.到首记录 ()<br />
记录集1.读文本 (0, 局_查询结果_后)<br />
<br />
编辑框5.内容 ＝ 到文本 (到数值 (局_查询结果_前) － (到数值 (局_查询结果_前) － 到数值 (局_查询结果_后)) ÷ (b － a) × (到数值 (编辑框4.内容) － a))‘这里是查询前一个温度和后一个温度之后，经过计算得到的最终想要的值