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

老师，

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

#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

老师，

希望下拉数据来源于表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

Public Class FileNameConverter
Inherits System.ComponentModel.StringConverter

    Public Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Public Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As StandardValuesCollection
        Dim obj = context.Instance
        Dim ls As List(of String) = DataTables("表B").GetValues("下拉列表数据", "编号 = '" & obj.bh & "' and 姓名 = '" & obj.xm & "'")
        Return New StandardValuesCollection(ls.ToArray)
    End Function

    Public Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return False
    End Function
End Class

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

老师，

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

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

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

'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编辑过]

参考

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

Dim rw As DataRow = DataTables("档案").find("编号='" & sender.SelectedObject.bh & "'")
'e.oldvalue            原值
'e.ChangedItem.label   标题
'e.ChangedItem.value   新值
msgbox(rw("姓名"))
rw(e.changeditem.label) = e.changeditem.value
End Sub

嗯谢谢老师

还有一个问题

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

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

以下是引用blsu33在2017/12/22 12:24:00的发言：
嗯谢谢老师

还有一个问题

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

去看afterLoad事件和目录树点击事件的代码。

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