......If jsonString.Contains("errcode") Then
Output.Logs("错误日志").Add(User.Name & ":" & Date.Now & vbcrlf & jsonString)
Output.Logs("错误日志").Save("c:\log.txt",True)
Output.Logs("错误日志").Clear
Else
Dim dr As DataRow
Dim first As Boolean = True
For Each obj As object In data.List
If first Then
dr = e.DataRow
first = False
Else
dr = DataTables("图文群发每日数据").AddNew
End If
dr("操作日期") = e.NewValue
dr("进入方式") = obj.user_source
dr("图文阅读人数") = obj.int_page_read_user
dr("图文阅读次数") = obj.int_page_read_count
dr("分享人数") = obj.share_user
dr("分享次数") = obj.share_count
dr("原文阅读次数") = obj.ori_page_read_user
dr("原文阅读人数") = obj.ori_page_read_count
dr("收藏人数") = obj.add_to_fav_user
dr("收藏次数") = obj.add_to_fav_count
dr("文章标题") = obj.title
dr("图文编号") = obj.msgid
Next
End If
......
[此贴子已经被作者于2016/11/23 20:39:41编辑过]
加好友 
发短信
Post By：2016/11/23 20:38:00 [显示全部帖子]
