If nd.Text.IndexOf(tab1.current("名称")) >= 0 Then
改为：
dim nm as string = tab1.current("名称")
if nd.text.StartsWith(nm & "\") orelse nd.text.endswith("\" & nm) orelse nd.text.indexof("\" & nm & "\") > 0 then
end if
意思是判断以这个开头，以这个结尾，中间包括三种情况
加好友 
发短信
Post By：2015/4/8 8:48:00 [显示全部帖子]
