下拉框采用行数据作为下拉值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下拉框采用行数据作为下拉值

共有1527人关注过本帖树形打印复制链接主题：下拉框采用行数据作为下拉值

ZJZK2015	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	下拉框采用行数据作为下拉值 Post By：2017/2/12 22:55:00 [只看该作者] 用户已被锁定

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/12 23:40:00 [只看该作者]

加一列，把所有专业的值，合并到一列表达式列去，然后参考

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

ZJZK2015	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/2/15 20:40:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/2/15 23:29:00 [只看该作者] 用户已被锁定

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/16 1:35:00 [只看该作者]

参考代码

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "专业类别" Then
        Dim ls As new List(Of String)
        For Each dr As DataRow In DataTables("员工证书档案").Select("[证书名称] = '" & e.Row("证书名称") & "'")
            For Each a As String In dr("注册专业").split(",")
                If ls.Contains(a) = False Then
                    ls.add(a)
                End If
            Next
        Next
        e.Col.ComboList = String.Join("|", ls.ToArray)
    End If
End If

ZJZK2015	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/2/16 11:23:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/2/16 11:26:00 [只看该作者] 用户已被锁定

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/16 12:40:00 [只看该作者]

    If e.Col.Name = "姓名" Then
        e.Col.ComboList = DataTables("员工证书").GetComboListString("姓名","[证书名称] = '" & e.Row("证书名称") & "' And [注册专业] like '%" & e.Row("专业类别") & "%'")

    End If

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

主题：下拉框采用行数据作为下拉值