- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 在使用OpenQQ的时候产生以下错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83467)
-- 发布时间：2016/4/9 22:12:00
-- 在使用OpenQQ的时候产生以下错误
如附件所示，请问是什么原因造成的
此主题相关图片如下：qq截图20160409220805.jpg
-- 发布时间：2016/4/10 14:59:00
--
应该是好友名称重复了
-- 发布时间：2016/4/10 22:46:00
--
你服务端添加好友的时候有问题，有同名的好友。
If e.Buddies.Contains(nm)= False Then
e.Buddies.Add(nm)
End If
-- 发布时间：2016/4/12 10:43:00
--
Dim pts() As String = e.UserName.Split(".")
Dim dr1 As DataRow
dr1 = DataTables("用户").Find("部门 = \'" & pts(0) & "\' And 姓名 = \'" & pts(1) & "\'")
If dr1 Is Nothing Then \'判断此用户不存在
e.Message = "用户名错误!" \'返回给登录者的提示信息
Return
End If
If dr1("密码") <> e.Password Then \'如果密码错误
e.Message = "登录密码错误!" \'返回给登录者的提示信息
Return
End If
e.Success = True \'允许用户登录
\'添加所有同事为好友
For Each dr2 As DataRow In DataTables("用户").DataRows
Dim nm As String = dr2("部门") & "." & dr2("姓名")
If nm <> e.UserName Then \'如果不是登录者本人
e.Buddies.Add(nm)
End If
Next
-- 发布时间：2016/4/12 10:43:00
--
时不时添加好友那段代码有为题？
-- 发布时间：2016/4/12 10:43:00
--
For Each dr2 As DataRow In DataTables("用户").DataRows
Dim nm As String = dr2("部门") & "." & dr2("姓名")
If nm <> e.UserName Then \'如果不是登录者本人
If e.Buddies.Contains(nm)= False Then e.Buddies.Add(nm)
End If
Next
-- 发布时间：2016/4/12 11:13:00
--
这个又是什么原因呢？
此主题相关图片如下：qq截图20160412111101.jpg
-- 发布时间：2016/4/12 11:17:00
--
你不要乱拷贝代码啊。删除对应的代码，或者加上对应的菜单。
http://www.foxtable.com/help/topics/3012.htm
-- 发布时间：2016/4/12 18:40:00
--
Dim r As Row = Tables("hgc2r").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
Dim msg As String = p & "hgc2r" & "#" & r("序号")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
提交插入数据时报错，请问这是什么原因造成的呢？
此主题相关图片如下：qq截图20160412183523.jpg
此主题相关图片如下：qq截图20160412183523.jpg-- 发布时间：2016/4/12 19:40:00
--
你 hgc2r 表有没有数据？如果一行数据都没有，不能用 Dim r As Row = Tables("hgc2r").Current
要加上判断
Dim r As Row = Tables("hgc2r").Current
If r Is Nothing Then Return
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
Dim msg As String = p & "hgc2r" & "#" & r("序号")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next