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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]定义下拉列表

共有2955人关注过本帖树形打印复制链接主题：[求助]定义下拉列表

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]定义下拉列表 发帖心情

Post By：2017/12/22 9:02:00 [显示全部帖子]

老师，

如何定义一个下拉列表呢？

#Region "Public Properties"

<System.ComponentModel.DisplayName("下拉列表"), _

System.ComponentModel.Category("属性"), _

System.ComponentModel.Description("下拉选项"), _

System.ComponentModel.ReadOnly(True)> _

Public Property bh() As String

Get

Return Dbh

End Get

Set(ByVal value As String)

Dbh = value

End Set

End Property

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

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

老师，

希望下拉数据来源于表B,条件是选定的编号姓名取得下拉数据，怎么写全局代码呢，劳烦老师在给改下？

'<System.ComponentModel.DisplayName("下拉列表"), _

'System.ComponentModel.Category("属性"), _

''System.ComponentModel.TypeConverter(Gettype(FileNameConverter))> _

'Public Property sx() As String

'Get

'Return dsx

'End Get

'Set(ByVal value As String)

'dsx = value

'End Set

'End Property

下载信息 [文件大小：下载次数： ]
点击浏览该文件:propertygrid.table

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/12/22 11:22:00 [显示全部帖子]

老师，

全局代码的“事件”，想要修改为查找的方式如何写

Public Sub pgd_PropertyValueChanged(ByVal sender As System.Object, ByVal e As system.windows.forms.propertyvaluechangedeventargs)

Dim rw As DataRow = DataTables("档案").find("编号"='" & entity.name & "' And 姓名='" & f.name & "'")

If rw IsNot Nothing Then

'e.oldvalue 原值

'e.ChangedItem.label 标题

'e.ChangedItem.value 新值

rw(e.changeditem.label) = e.changeditem.value

Else

rw("编号") = e.changeditem.value

rw("姓名") = e.changeditem.value

rw("下拉列表") = e.changeditem.value

End If

End Sub

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/12/22 11:39:00 [显示全部帖子]

这样写有错误，怎么改呢?

'Public Class ConvertHelper

'Public Sub pgd_PropertyValueChanged(ByVal sender As System.Object, ByVal e As system.windows.forms.propertyvaluechangedeventargs)

'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 & "'")''''''1

'If dr Is Nothing Then

'dr = dt.addnew

'dr("姓名") = entity.name

'dr("下拉列表") = f.name

'dr(e.changeditem.label) = e.changeditem.value

'End If

'Dim o As Object = f.GetValue(entity, Nothing)

'If (o Is Nothing) Then

'dr("下拉列表") = DBNull.Value

'Else

'dr(e.changeditem.label) = e.changeditem.value

'End If

'Next

'End Sub

'End class

[此贴子已经被作者于2017/12/22 11:39:37编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/12/22 12:24:00 [显示全部帖子]

嗯谢谢老师

还有一个问题

假如窗口有一个BTN 按钮控件名字和档案表编号一致怎么能点击这个按钮，弹出这个property

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/12/22 12:25:00 [显示全部帖子]

将这个property 绑定到指定的控件中

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/12/22 14:42:00 [显示全部帖子]

看了没有看出来是哪里绑定？

怎么绑定呢？

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

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

上述代码动态绑定到 BTN 按钮

怎么写感觉没地方入手啊

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

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

此主题相关图片如下：qq图片20171222161728.png

类似这个意思只要点击窗口中控件就显示 PropertyGrid

[此贴子已经被作者于2017/12/22 16:19:37编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

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

只是 PropertyGrid 自己定义一个全新属性表不是系统的

[此贴子已经被作者于2017/12/22 16:19:55编辑过]

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：[求助]定义下拉列表