msgbox(rc.gettype.name) '弹出类型名
然后判断，如
Select case rcgetype.name
case "类型1", "类型2", "类型3"
dr("Ctitle")=rc.Text dr("tableaddress")=rc.Name
End Select
加好友 
发短信
Post By：2018/6/28 19:41:00 [显示全部帖子]
