类的返回值不會,請大神教

pooklove2004

.版本 2
.支持库 spec
.支持库 mysql

.子程序 读病历2, , 公开
.参数 患者资料, 患者资料
.局部变量 窗口传名字, 窗口传名字
.局部变量 读病历, 文本型
.局部变量 记录集句柄, 整数型
.局部变量 ***, 文本型
.局部变量 J, 整数型
.局部变量 Q, 整数型
.局部变量 N, 整数型
.局部变量 ID, 文本型
.局部变量 time, 文本型
.局部变量 case_complaint, 文本型
.局部变量 case_examination, 文本型
.局部变量 case_diagnosis, 文本型
.局部变量 Special_treatment, 文本型
.局部变量 drugs, 文本型
.局部变量 doctor, 文本型

读病历 ＝ 取文本 (“SELECT * FROM %s WHERE %s LIKE '%s' ORDER BY time ASC”, “patient_case”, “patient_id”, 患者资料.patientidc)

执行SQL语句 (Mysql句柄, 读病历)

记录集句柄 ＝ 取记录集 (Mysql句柄)

读字段值 (记录集句柄, “patient_id”, ***)
窗口传名字.patient_id ＝ ***
.如果 (*** ≠ “”)

    J ＝ 取记录集行数 (记录集句柄)

    到首行 (记录集句柄)

    Q ＝ 0

    .计次循环首 (J, N)

        读字段值 (记录集句柄, “ID”, ID)
        窗口传名字.ID ＝ ID
        读字段值 (记录集句柄, “time”, time)
        窗口传名字.time ＝ time
        读字段值 (记录集句柄, “case_complaint”, case_complaint)
        窗口传名字.case_complaint ＝ case_complaint
        读字段值 (记录集句柄, “case_examination”, case_examination)
        窗口传名字.case_examination ＝ case_examination
        读字段值 (记录集句柄, “case_diagnosis”, case_diagnosis)
        窗口传名字.case_diagnosis ＝ case_diagnosis
        读字段值 (记录集句柄, “Special_treatment”, Special_treatment)
        窗口传名字.Special_treatment ＝ Special_treatment
        读字段值 (记录集句柄, “drugs”, drugs)
        窗口传名字.drugs ＝ drugs
        读字段值 (记录集句柄, “doctor”, doctor)
        窗口传名字.doctor ＝ doctor
    .计次循环尾 ()
    释放记录集 (记录集句柄)
   返回 (窗口传名字)——————> 传不出去，是不是逻辑问题。
**不能将“窗口传名字”数据转换到“空白型”数据。***
.否则

大司命

  

子程序名	返回值类型	公开	备 注
读病历2	窗口传名字
参数名	类 型	参考	可空	数组	备 注
患者资料	患者资料

.子程序 读病历2, 窗口传名字, 公开<br /> .参数 患者资料, 患者资料

aqhaohan

1. .版本 2
   
2. 
   
3. .子程序 读病历2, 窗口传名字, 公开
   
4. .参数 患者资料, 患者资料
   
5. .局部变量 窗口传名字, 窗口传名字
   
6. .局部变量 读病历, 文本型
   
7. .局部变量 记录集句柄, 整数型
   
8. .局部变量 J, 整数型
   
9. .局部变量 Q, 整数型
   
10. .局部变量 N, 整数型
    
11. .局部变量 ID, 文本型
    
12. .局部变量 time, 文本型
    
13. .局部变量 case_complaint, 文本型
    
14. .局部变量 case_examination, 文本型
    
15. .局部变量 case_diagnosis, 文本型
    
16. .局部变量 Special_treatment, 文本型
    
17. .局部变量 drugs, 文本型
    
18. .局部变量 doctor, 文本型
    
19. 
    
20. 读病历 ＝ 取文本 (“SELECT * FROM %s WHERE %s LIKE '%s' ORDER BY time ASC”, “patient_case”, “patient_id”, 患者资料.patientidc)
    
21. 
    
22. 执行SQL语句 (Mysql句柄, 读病历)
    
23. 
    
24. 记录集句柄 ＝ 取记录集 (Mysql句柄)
    
25. 
    
26. 读字段值 (记录集句柄, “patient_id”, ***)
    
27. 窗口传名字.patient_id ＝ ***
    
28. 如果 (*** ≠ “”)
    
29. 
    
30. J ＝ 取记录集行数 (记录集句柄)
    
31. 
    
32. 到首行 (记录集句柄)
    
33. 
    
34. Q ＝ 0
    
35. 
    
36. .计次循环首 (J, N)
    
37. 
    
38.     读字段值 (记录集句柄, “ID”, ID)
    
39.     窗口传名字.ID ＝ ID
    
40.     读字段值 (记录集句柄, “time”, time)
    
41.     窗口传名字.time ＝ time
    
42.     读字段值 (记录集句柄, “case_complaint”, case_complaint)
    
43.     窗口传名字.case_complaint ＝ case_complaint
    
44.     读字段值 (记录集句柄, “case_examination”, case_examination)
    
45.     窗口传名字.case_examination ＝ case_examination
    
46.     读字段值 (记录集句柄, “case_diagnosis”, case_diagnosis)
    
47.     窗口传名字.case_diagnosis ＝ case_diagnosis
    
48.     读字段值 (记录集句柄, “Special_treatment”, Special_treatment)
    
49.     窗口传名字.Special_treatment ＝ Special_treatment
    
50.     读字段值 (记录集句柄, “drugs”, drugs)
    
51.     窗口传名字.drugs ＝ drugs
    
52.     读字段值 (记录集句柄, “doctor”, doctor)
    
53.     窗口传名字.doctor ＝ doctor
    
54. .计次循环尾 ()
    
55. 释放记录集 (记录集句柄)
    
56. 返回 (窗口传名字)
    
57. 
    

复制代码

pooklove2004

大司命 发表于 2019-1-30 16:10
.子程序 读病历2, 窗口传名字, 公开
.参数 患者资料, 患者资料

错误(10022): 子程序“读病历2”具有返回值定义，但实际上却没有返回数据或者并不是所有程序分支都返回了数据。

pooklove2004

标签7.标题 ＝ 窗口传名字.doctor
得不到數据
可以有小例看看嗎?