51问答网 > pb中代码的问题，这段代码是啥意思，如何实现的？实现了患者门诊号的正确输入

pb中代码的问题，这段代码是啥意思，如何实现的？实现了患者门诊号的正确输入

2024-12-16 11:03:26

推荐回答（1个）

回答1：

String tpid,ts
//tab_1.tabpage_1.cb_ok.Enabled = False
tpid = Trim(tab_1.tabpage_1.sle_pid.text)-------------去掉编号的左右空格

If Len(tpid)<12 then ----------------------------如果长度小于 12

tpid = String(Dec(tpid),"000000000000")------------------12位数字来填充，不足用 0 补齐

tab_1.tabpage_1.sle_pid.text = tpid -----------------------设置编号

End If

pb中代码的问题，这段代码是啥意思 ，如何实现的？实现了患者门诊号的正确输入

pb中代码的问题，这段代码是啥意思，如何实现的？实现了患者门诊号的正确输入