Loading... > 这是一个6级评级的需求点,应该能混过去 + 在Rpt_InitPropList.vbs里加入,放在前面 ```vbnet Rpt.PropListAddItem "button","导入临床诊断","bzms",GetBLMS() Rpt.PropListAddItem "button","导入病史","bzms",GetBS() ``` 这段放在后面 ~~~vbnet Function GetBLMS() Checkserialnum = Rpt.Data.GetNamedValue("CHECKSERIALNUM") sql="select prediagnose from studyinfo where CHECKSERIALNUM='"&Checkserialnum&"' " Set Conn=Rpt.GetDBConn Set rs = Conn.Execute(sql) While Not rs.eof blms=rs("prediagnose") If Len(blms)> 0 Then GetBLMS=GetBLMS&blms End If rs.MoveNext Wend End Function Function GetBS() Checkserialnum = Rpt.Data.GetNamedValue("CHECKSERIALNUM") sql="select ABSTRACTHISTORY from studyinfo where CHECKSERIALNUM='"&Checkserialnum&"' " Set Conn=Rpt.GetDBConn Set rs = Conn.Execute(sql) While Not rs.eof blms=rs("ABSTRACTHISTORY") If Len(blms)> 0 Then GetBS=GetBS&blms End If rs.MoveNext Wend End Function ~~~ - 导入检验、心电结果啥的 同理,用唯一号去查视图,然后赋值给变量就行 > 下面是效果图  最后修改:2023 年 05 月 30 日 © 允许规范转载 打赏 赞赏作者 支付宝微信 赞 0 如果觉得我的文章对你有用,请随意赞赏