Loading... * 电子病历六级需求 * 按钮加上后，点击没反应就是版本不支持  > Rpt_InitPropList.vbs ```vbnet 'main函数下添加： Rpt.PropListAddItem "title","临床信息引用" Rpt.PropListAddItem "button","导入临床诊断","bzms",GetBLMS() Rpt.PropListAddItem "button","导入病史","bzms",GetBS() '添加方法： 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 ``` 最后修改：2024 年 04 月 22 日 © 允许规范转载 赞 1 如果觉得我的文章对你有用，请随意赞赏