Foxtable(狐表)用户栏目专家坐堂 → 微信案例,更换微信公众号报错.


  共有3330人关注过本帖树形打印复制链接

主题:微信案例,更换微信公众号报错.

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110599 积分:562897 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/1 17:11:00 [显示全部帖子]

converthelper类位于全局代码ConvertHelper模块中,其实就是把当前行的值赋给对象对应的属性,可以自己改改

 

核对一下数据库的字段类型,不要随便改

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110599 积分:562897 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/2 9:03:00 [显示全部帖子]

这个PubNos是查询表,来源于数据库的视图vWeChatPubNos

 

上传你的项目我看看


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110599 积分:562897 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/2 10:07:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:微信管理客户端.rar


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110599 积分:562897 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/2 12:05:00 [显示全部帖子]

改进一下全局代码

 

'把DataRow值赋值到对象的实体对象
Public Shared Sub FromDataRow(ByVal dr As DataRow, ByRef entity As WeChat.EntityBase)
Dim fs As System.Reflection.PropertyInfo() = entity.Gettype.GetProperties
Dim f As System.Reflection.PropertyInfo
For Each f In fs
    If ((Not dr.DataTable Is Nothing) AndAlso dr.DataTable.DataCols.Contains(f.Name)) Then
        Dim o As Object = dr(f.Name)
        If Not (o Is DBNull.Value OrElse dr.Isnull(f.Name)) Then
            f.SetValue(entity, o, Nothing)
        End If
    End If
Next
End Sub


 回到顶部