老师，问个问题，想要在登陆时自动获取部门信息QQ-serev 端 UserLogging
Dim pts() As String = e.UserName.Split(".")
Dim dr1,dr3 As DataRow
If pts(0)="999" Then
dr3 = DataTables("用户").Find("ID= '" & pts(1) &"'")
If dr3 IsNot Nothing Then '判断此用户不存在
e.Success = True '允许用户登录
e.Message =dr3("部门") '返回给登录者的提示信息
MessageBox.Show(e.Message) ‘可以看到001对应的部门是“生产部”
客户端
txtUserName
Leave事件
QQClient.ServerIP = e.Form.Controls("txtIP").Value '指定服务器IP地址
QQClient.ServerPort = e.Form.Controls("txtPort").Value '指定服务器端口
QQClient.UserName ="999" & "." & e.Form.Controls("txtUserName").text '指定登录用户名
MessageBox.Show(QQClient.ServerMessage)
If QQClient.Start() = True '如果登录成功
If QQClient.ServerMessage > "" Then
e.Form.Controls("部门").value=QQClient.ServerMessage
Else
MessageBox.Show("用户名不存在")
End If
End If
不成功，为啥呢？
加好友 
发短信
Post By：2016/3/18 17:40:00 [只看该作者]
