dim ab,bc as stringab = e.datarow("疾病名称")if ab >"" then bc = getpy(ab,true) bc = bc.toupper()
end ife.datarow("组合") = bc & ":" & abe.datarow("输入码") = bc