特定用户加载特定的表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 特定用户加载特定的表

共有2891人关注过本帖树形打印复制链接主题：特定用户加载特定的表

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/3 9:27:00 [只看该作者]

Dim dr As DataRow = DataTables("Users").find("Name= '" & _UserName & "'")
If dr IsNot Nothing Then
    Dim nms1() As String = dr("可以打开的表").Split(",")

    If _UserName = "王五" Then
        For Each dt As DataTable In DataTables
            If Array.IndexOf(nms1, dt.name) >= 0 Then
                'If dt.name = "全部合同" Or dt.name = "合同转换" Then
                dt.LoadFilter = ""
                dt.Load()
            Else
                dt.LoadFilter = "[_Identify] Is Null"
                dt.Load()
            End If
        Next
    End If
End If

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/5/3 10:51:00 [只看该作者]

表的一个多值字段列自动提取数据库中所有表的名字并作为列表项目，代码该怎么写？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/3 11:08:00 [只看该作者]

以下是引用kaituozhe在2016/5/3 10:51:00的发言：
表的一个多值字段列自动提取数据库中所有表的名字并作为列表项目，代码该怎么写？

控件.ComboList = 某行("某列").Replace(",", "|")

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/5/3 11:12:00 [只看该作者]

我的意思是数据库中有A、B、C、d、e、f、g等等几十个表而且还会不断增加，这些表名称怎么能够自动（包括更新后）做user表的“可以打表的列”的列表项目呢？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/3 11:30:00 [只看该作者]

动态获取

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
Dim str As String = String.Join("|", lst.ToArray)
msgbox(str)

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2016/5/3 12:02:00 [只看该作者]

上述代码写在那里？列属性-基本属性-自定义列表中没有办法写代码

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/3 12:08:00 [只看该作者]

以下是引用kaituozhe在2016/5/3 12:02:00的发言：
上述代码写在那里？列属性-基本属性-自定义列表中没有办法写代码

可以写在prepareEdit事件

If e.Col.Name = "第一列" Then
    Dim lst As List(Of String)
    lst = Connections("nwnd").GetTableNames
    Dim str As String = String.Join("|", lst.ToArray)
    e.Col.ComboList = str
End If

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

总数 17 上一页 1 2

主题：特定用户加载特定的表