| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 在表属性PrepareEdit事件中，动态下拉列表不能生效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170410) |
| -- 作者：9EQ98 -- 发布时间：2021/7/25 17:25:00 -- 在表属性PrepareEdit事件中，动态下拉列表不能生效 Dim 查找条件 As String = "" Dim 下拉项目 As String = "A|B|C" \' If e.Col.Name = "CMID" Then \'查找条件 = "[生产合同号] = \'" & e.Row("生产合同号") & "\'" \'下拉项目 = DataTables("生产计划").GetComboListString("CMID", 查找条件) Tables(e.Table.Name).Cols(e.Col.NAme).ComboList = 下拉项目 StatusBar.Message1 = e.Col.Name \'StatusBar.Message1 = 查找条件 & " :" & 下拉项目 Else StatusBar.Message1 = e.Table.Name & ":" & e.Col.Name End If If e.Col.Name = "釉色" Then \'查找条件 = "[生产合同号] = \'" & e.Row("生产合同号") & "\'" \'下拉项目 = DataTables("生产计划").GetComboListString("CMID", 查找条件) Tables(e.Table.Name).Cols(e.Col.NAme).ComboList = "C|D|E" StatusBar.Message1 = e.Col.Name \'StatusBar.Message1 = 查找条件 & " :" & 下拉项目 Else StatusBar.Message1 = e.Table.Name & ":" & e.Col.Name End If |
| -- 作者：有点蓝 -- 发布时间：2021/7/25 21:18:00 -- 同一个查询条件，查询的是同一个列数据，得到的列表项目都是一样的，当然无法动态。 具体截图说明一下，需要动态什么？
|
| -- 作者：9EQ98 -- 发布时间：2021/7/26 9:27:00 -- 在表属性里的表事件中，不生效下拉框，但在全局表事件中，会有下拉框。这是为什么？？？？？ |
| -- 作者：有点蓝 -- 发布时间：2021/7/26 9:35:00 -- 测试过才知道，请上传实例测试 |