下面是我关于选择集的一段程序,定义略去: FType(0) = 0 FData(0) = "*TEXT" Selset.SelectOnScreen FType, FData FmGetInfo.SBarInfoPage.SimpleText = " 标准件明细已选择,录入进行中,请稍候......" For Each entry In Selset Set txtObj = entry X = txtObj.TextString next 当选择集内容为单行文本时,以上程序可以正常执行,但多行文本被选择时,在“Set txtObj = entry”处会是程序停止循环,直接跳出。 请帮我看看程序是不是有问题,谢谢!
|