加一个变量判断。
在prepareEdit加入类似代码
If vars("允许") = True Then
e.Cancel = Faflse
End If
在DoubleClick加入代码
vars("允许") = True
加好友 
发短信
Post By：2015/2/23 9:18:00 [显示全部帖子]
