Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]属性窗口的全局代码


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

主题：[求助]属性窗口的全局代码
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/24 20:58:00 [只看该作者]

在函数里面，加入msgbox，看是否执行了里面的代码，是否setvalue了。

 

属性值变化后，刷新一下属性窗口，如 refresh
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2017/12/24 21:00:00 [只看该作者]

msgbox 没有反应 什么也没有
refresh 写到哪里呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/24 21:02:00 [只看该作者]

弹出什么？

 

Public Shared Sub FromDataRow(ByVal dr As DataRow, ByRef entity As WeChat.EntityBase)
msgbox(1)
Dim fs As System.Reflection.PropertyInfo() = entity.Gettype.GetProperties
Dim f As System.Reflection.PropertyInfo
For Each f In fs
msgbox(2)
    If ((Not dr.DataTable Is Nothing) AndAlso dr.DataTable.DataCols.Contains(f.Name)) Then
msgbox(3)
        Dim o As Object = dr(f.Name)
        If (Not o Is DBNull.Value) Then
msgbox(4)
            f.SetValue(entity, o, Nothing)
        End If
    End If
Next
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2017/12/24 21:16:00 [只看该作者]

上个例子 劳烦您在给看下 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复件 控件位置大小.foxdb


[此贴子已经被作者于2017/12/24 21:28:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/24 21:22:00 [只看该作者]

以下是引用blsu33在2017/12/24 21:16:00的发言：
测试了下 什么也没有 明天上午我上个例子 劳烦您在给看下 

 

你肯定没有调用函数 FromDataRow


 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2017/12/24 21:30:00 [只看该作者]

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.10.26.1
错误所在事件：表，控件大小，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Unable to cast object of type 'Foxtable.CustomCheckBox' to type 'Foxtable.WeChat.EntityBase'.
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/24 22:08:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复件 控件位置大小.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2017/12/25 8:39:00 [只看该作者]

老师，
 添加方法，怎么写？


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20171225083819.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/25 9:02:00 [只看该作者]

第一句改成这样即可

 

Dim MyPropertyGrid As New System.Windows.Forms.PropertyGrid  '实例化一个属性表
 回到顶部
总数 29 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询