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

用户表和users表，请合并成一张表。name对应用户名，group对应部门，加一个好友列

qqserver那里，添加外部数据源，连接users表。

AfterOpenProject事件代码

Dim fdr As DataRow = DataTables("users").Find("name = \'" & _UserName & "\'")
If fdr Is Nothing Then
msgbox("没找到")
Return
End If
Dim gr As String = fdr("group")
Dim pa As String = fdr("password")
Dim na As String = fdr("name")
msgbox(fdr("group"))
msgbox(fdr("password"))

If QQClient.Ready=True Then
    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
QQClient.ServerIP = "这个地址你要直接写"
QQClient.ServerPort = "这个要直接写”
QQClient.UserName = gr & "." & na
QQClient.Password = pa \'指定登录密码
If QQClient.Start() = True Then \'如果登录成功
    Dim msg As String = "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息
        msg = msg & QQClient.ServerMessage
    End If
    popMessage(msg,"提示",PopiconEnum.Infomation,2)
Else \'如果登录失败,显示服务器返回错误信息
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,3)
End If