For i As Integer = 1 To dr.DataTable.DataCols.count-1
改成
For i As Integer = 1 To dr.DataTable.DataCols.count-2
加好友 
发短信
Post By：2018/10/11 9:35:00 [只看该作者]
