赋值的时候的时候，修改
Case "文本" strkey = "'" & dr(tbid) & "'"
改成
Case "文本" strkey = "'" & dr(tbid).Tostring & "'"
加好友 
发短信
Post By：2017/10/26 14:29:00 [只看该作者]
