临时医嘱定时器代码改成:
If Tables("临时医嘱").Rows.count >0 Then If Tables("临时医嘱").Focused Then
…………
长期医嘱定时器代码改成:
If Tables("长期医嘱").Rows.count >0 ThenIf Tables("长期医嘱").Focused Then