主题：[求助]获取openQQ登陆者表达问题

 [求助]下面代码获取openQQ“登陆者”表达有问题问题，请老师帮修改

Dim re As String = e.Form.Controls("ComboBox1").Value '获得接收用户名

Dim bm As String = e.Form.Controls("ComboBox2").Value '获得接收部门名称

Dim cn As String = e.Form.Controls("TextBox1").Value '获得发送内容

If re = "" OrElse cn = "" Then

    MessageBox.Show("信息不完整,信息无法发送!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

If re = QQClient.UserName  Then

    MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

Dim fsz As String

fsz=bm & "." &  re

QQClient.Send(fsz,cn)

e.Form.Controls("TextBox1").Value = ""

<!--EndFragment-->

 If re = QQClient.UserName  Then 这行代码有问题，运行无效

 re是接收者，如果接收者等于openQQ登陆者时提示“不能给自己发信息!"，但现在问题是If re = QQClient.UserName 运行无效，发给自已的也没有任何提示信息

 好的

原因找出来了，应该改 If fsz = QQClient.UserName  Then

不过现在又新的问题：如果在线，接收到信息的同时，"信息"表马上增加一行新的记录，如果原来不在线，上线后信息是可以接收到的，但"信息"表没有添加任何记录，不知道什么原因？

Dim dr As DataRow = DataTables("信息").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("接收者") = _UserName
dr("发送时间") =iif(e.UserName > "",Date.Now(),"服务器")
dr("接收时间") = Date.now()
dr("内容") = e.Message
popMessage(e.Message,"提示",PopiconEnum.Infomation)
DataTables("信息").Save() '保存

 我已经用代码发过来了，如果在线，是可以收到信息的，同时"信息"表也会马上增加一行新的记录，但是现在的有问题：如果原来不在线，上线后信息也是可以接收到的，但"信息"表没有添加任何记录，不知道什么原因？触发接收事件我用的是下面的代码

Dim dr As DataRow = DataTables("信息").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("接收者") = _UserName
dr("发送时间") =iif(e.UserName > "",Date.Now(),"服务器")
dr("接收时间") = Date.now()
dr("内容") = e.Message
popMessage(e.Message,"提示",PopiconEnum.Infomation)
DataTables("信息").Save() '保存

我改了foxtable提供的例子，增加了一个发送信息的窗口，信息发送后，如果在线，是可以收到信息的，同时"信息"表也会马上增加一行新的记录，但如果对方不在发现有问题：对方登陆后收不到信息，"信息"表也没有添加任何记录，不知道什么原因？触发接收事件我用的是下面的代码，现在我把例子上传老师帮看下

Dim dr As DataRow = DataTables("信息").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("接收者") = QQClient.UserName
dr("发送时间") =iif(e.UserName > "",Date.Now(),"服务器")
dr("接收时间") = Date.now()
dr("内容") = e.Message
popMessage(e.Message,"提示",PopiconEnum.Infomation)
DataTables("信息").Save() '保存

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qq测试用.rar

谢谢

 有两个下拉列表框，第一个框是“部门”，第二个框是各部门的“职员”，要求先选了部门，再选职员时列表里只显示前面已选部门对应的职员（不要全部显示），代码如何写？如下图

 

 

 

此主题相关图片如下：qq图片20151109182666.png