以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 微信案例,更换微信公众号报错. (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96883) |
||||||||||||
-- 作者:ycwk -- 发布时间:2017/3/1 16:21:00 -- 微信案例,更换微信公众号报错. 跟踪到全局类 curstomclass 报如下错误: 看样子converthelper 是wechat的成员,不知道往下怎么改了,请指教
|
||||||||||||
-- 作者:有点蓝 -- 发布时间:2017/3/1 17:11:00 -- converthelper类位于全局代码ConvertHelper模块中,其实就是把当前行的值赋给对象对应的属性,可以自己改改
核对一下数据库的字段类型,不要随便改
此主题相关图片如下:1.jpg |
||||||||||||
-- 作者:ycwk -- 发布时间:2017/3/1 20:02:00 -- 执行 f.SetValue(entity,o,Nothing) 报错,由于o用IsNumeric()检测得知是数值型,但不知entity用什么函数检查是什么型,不知道怎么改代码了,请教。 \'把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) Then f.SetValue(entity,o,Nothing) \'此函数报错 End If End If Next End Sub |
||||||||||||
-- 作者:有点色 -- 发布时间:2017/3/1 22:06:00 -- 1、你修改了原来的表结构了?代码本身是不需要改的啊。
2、msgbox弹出是哪一列有问题 msgbox(dr.DataTable.Name & " " & f.name)
|
||||||||||||
-- 作者:ycwk -- 发布时间:2017/3/2 8:25:00 -- 1.没有改表结构, 2.用msgbox(dr.DataTable.Name & " " & f.name)检测 弹以下提示: PubNos PublicNoID PubNos WechatNumber PubNos BindingEmail ****** 但数据库中只有 WechatPubNos这个表,没有PubNos这个表,是不是这里有问题?
|
||||||||||||
-- 作者:有点蓝 -- 发布时间:2017/3/2 9:03:00 -- 这个PubNos是查询表,来源于数据库的视图vWeChatPubNos。
上传你的项目我看看 |
||||||||||||
-- 作者:ycwk -- 发布时间:2017/3/2 9:31:00 -- 附件已上传
[此贴子已经被作者于2017/3/2 9:34:55编辑过]
|
||||||||||||
-- 作者:有点蓝 -- 发布时间:2017/3/2 10:07:00 --
|
||||||||||||
-- 作者:ycwk -- 发布时间:2017/3/2 10:48:00 -- 蓝版发的客户端,运行还是报下面这个错误啊! |
||||||||||||
-- 作者:有点色 -- 发布时间:2017/3/2 10:56:00 -- 以下是引用ycwk在2017/3/2 10:48:00的发言:
蓝版发的客户端,运行还是报下面这个错误啊!
你重新下载,删除数据库重新还原一下。
http://wechat.foxtable.com:9009/WebHelp/Downloads/微信接口案例.rar |