Loading... 如图：  > 脚本内容： ~~~vb Call main() Sub main() ' 获取总行数 Dim rowCount rowCount = PatientList.GetRowCount() ' 定义变量count并初始化为0 Dim count count = 0 ' 遍历每一行，将每一行的数值相加 For nItem = 0 To rowCount - 1 ' 获取每一行的数值 Dim itemText itemText = PatientList.GetItemText(nItem, 9) '9为PM_ListSetting.ini中，图像数的序号 ' 将数值转换为整数并累加到count变量 count = count + CInt(itemText) Next ' 打印相加的结果 MyScript.msgbox "本次查询列表中共 "& rowCount & " 例检查，图像总数为：" & count End sub '9为PM_ListSetting.ini中，图像数的序号 ： ' [9] ' ALIGNMENT=1 ' columnname=图像数 ' DBNAME=FILENUM ' ORDER=16 ' WIDTH=68 ~~~ 最后修改：2024 年 04 月 22 日 © 允许规范转载 赞 如果觉得我的文章对你有用，请随意赞赏