[求助]属性窗口的全局代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2732人关注过本帖树形打印复制链接主题：[求助]属性窗口的全局代码

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/21 15:09:00 [显示全部帖子]

你想做什么？下面代码看懂了没有？

on error resume Next
Dim frm As WinForm.Form = e.Form
For Each c As object In frm.controls
    Dim dr3 As DataRow=DataTables("控件名称表").Find("控件名称='"& c.name &"'")
    If dr3 IsNot Nothing Then
        For Each o As object In c.Gettype.getproperties
            Dim val = o.getvalue(c, Nothing)
            If val IsNot Nothing Then
                Dim dr As DataRow=DataTables("控件大小").find("控件名称='"& c.name &"' and 属性='"& o.name &"'")
                If dr IsNot Nothing Then
                    If dr("系统属性值")<>val.Tostring Then
                        dr("系统属性值")=(val.Tostring)
                    End If
                Else
                    Dim dr1 As DataRow=DataTables("控件大小").AddNew()
                    dr1("控件类型")=(c.Gettype.name)
                    dr1("控件名称")=(c.name )
                    dr1("属性")=(o.name)
                    dr1("系统属性值")=(val.Tostring)
                End If
            End If
        Next
    End If
Next

如果你像反向，根据表数据给控件赋值，那你就写setValue即可啊。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/21 15:28:00 [显示全部帖子]

照抄2楼代码，改成根据控件名、属性名在表格查找到对应的行，然后取值或赋值。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/21 15:45:00 [显示全部帖子]

以下是引用blsu33在2017/12/21 15:35:00的发言：
老师，

2楼代码没问题，我要说的是通过窗口1的系统属性设置窗口去写表数据，全局代码没这么写过，怎么照抄啊？

如果是设置属性后触发事件，绑定PropertyValueChanged事件，参考

下载信息 [文件大小：340.0 KB 下载次数：2]
点击浏览该文件:属性查看.table

给表格赋值，可以在触发事件后查找修改。或者照抄你2楼的代码全部一次性修改

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/21 15:58:00 [显示全部帖子]

绑定 PropertyValueChanged 事件，绑定事件类似参考

http://www.foxtable.com/webhelp/scr/2374.htm

里面的代码直接写2楼代码即可。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/21 16:09:00 [显示全部帖子]

Public Shared Sub ToDataRow(ByVal entity As object, dt As DataTable)
Dim fs As System.Reflection.PropertyInfo() = entity.Gettype.GetProperties
Dim f As System.Reflection.PropertyInfo
For Each f In fs
    Dim dr As DataRow = dt.find("控件名称='" & entity.name & "' And 属性='" & f.name & "'")
    If dr Is Nothing Then
        dr = dt.addnew
        dr("控件名称") = entity.name
        dr("属性") = f.name
    End If

    Dim o As Object = f.GetValue(entity, Nothing)
    If (o Is Nothing) Then
        dr("系统属性值") = DBNull.Value
    Else
        dr("系统属性值") = o
    End If
Next
End Sub