主题：关于数据源的问题

不理解你的意思，为什么要把数据源保存在项目目录下？这样做的目的是什么？

Dim h1 As String = e.ProjectPath & "host.txt"
Dim h2 As String = e.ProjectPath & "host2.txt"

If e.Name = "tuohai IT" Then
    If e.User.Group = "一店" Then
        If Filesys.FileExists(h1) Then
            Dim s1 As String = FileSys.ReadAllText(h1)
            e.ConnectionString = s1
        Else
            msgbox("配置文件不存在")
        End If
    ElseIf e.User.Group = "二店" Then
        If Filesys.FileExists(h2) Then
            Dim s2 As String = FileSys.ReadAllText(h2)
            e.ConnectionString = s2
        Else
            msgbox("配置文件不存在")
        End If
    End If
End If

Dim h1 As String = e.ProjectPath & "host.txt"
Dim h2 As String = e.ProjectPath & "host2.txt"

msgbox(e.name)

If e.Name = "tuohai IT" Then

msgbox(2)

msgbox(e.user.group)
    If e.User.Group = "一店" Then
        If Filesys.FileExists(h1) Then
            Dim s1 As String = FileSys.ReadAllText(h1)
            e.ConnectionString = s1
        Else
            msgbox("配置文件不存在")
        End If
    ElseIf e.User.Group = "二店" Then
        If Filesys.FileExists(h2) Then
            Dim s2 As String = FileSys.ReadAllText(h2)
            e.ConnectionString = s2
        Else
            msgbox("配置文件不存在")
        End If
    End If
End If

e.user.group这个值，是内置的登陆窗口的用户才有用的

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

如果是你自己做的登陆窗口，无法使用这个变量。

那这个弹出什么？

msgbox(e.user.group)

你给用户设置的分组是什么？

具体实例发上来测试。

登陆窗口的用户数据，不能用外部数据源啊。如果用外部数据源，要先连上数据库，才能获得用户分组等信息啊。

你用【外部数据源】user表的时候不能这样处理。

这个时候，是先执行BeforeConnectOuterDataSource事件，然后才弹出登录窗口的。也就是，你获取不了 e.user.group 的值的。

如果想切换数据源，请在打开项目后，在切换，参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59825&skin=0