|

楼主 |
发表于 2013-6-25 13:05:59
|
显示全部楼层
来自: 中国辽宁沈阳
本帖最后由 qiminger 于 2013-6-28 13:28 编辑
+ e8 m* i4 d- f4 H! k2 e$ b( i3 I6 c$ I5 \
2 |! P |5 N( `7 R7 E6 b5 Q十分感谢梁老师提供代码学习~~
' O6 `! j" L% I% D9 I4 D; P4 m6 }
/ L/ T) w$ C( l; L提示进来学习的坛友!8 C, \' F$ m& X8 d* \5 A; x
通过在自定义属性里嵌入宏代码,问题已解决。$ x @: t; S% O; x
下面代码在2011版本中均已测试成功。' S# n3 e' @2 O' i) @# }
! u# W1 V( r3 |4 e15楼代码,可以取左边字符
2 O" M2 }9 @1 i. k( n0 L4 ^19楼代码,可以取最后一个下划线后面的字符。; @1 {, O% B, i; U# R3 b. q
9 d4 d: z1 x8 Q7 l' x9 ^
下面这段代码,可以取第一个下划线前面的字符。
+ Y$ d8 p6 c, D3 {/ T1$ C2 R' m6 {" P) k4 g e
dim yfd
3 a b6 {0 L- Gyfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1)) |
|