- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]错误在哪？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114202)
-- 发布时间：2018/1/31 16:03:00
-- [求助]错误在哪？
Dim r As Row = Tables("派工").Current
If r IsNot Nothing Then
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
\'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "派工" & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
End If
此主题相关图片如下：微信图片_20180131160140.jpg
-- 发布时间：2018/1/31 16:10:00
--
加入红色代码，看弹出什么
Dim r As Row = Tables("派工").Current
If r IsNot Nothing Then
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
\'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "派工" & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
msgbox(bd.name)
QQClient.Send(bd.name, msg)
End If
Next
End If
-- 发布时间：2018/2/3 16:13:00
--
错误是这样的
此主题相关图片如下：微信1.jpg
-- 发布时间：2018/2/3 16:14:00
--
并且点击，一直退出不了
-- 发布时间：2018/2/3 16:19:00
--
到命令窗口输入以下代码，并执行，看输出什么内容：
For Each bd As QQBuddy In QQClient.Buddies
Output.Show("bd.name=" & bd.name & ",Online=" & bd.OnLine)
Next
[此贴子已经被作者于2018/2/3 16:21:26编辑过]
-- 发布时间：2018/2/3 16:23:00
--
此主题相关图片如下：捕获.png
-- 发布时间：2018/2/3 16:31:00
--
重新复制5楼的代码
-- 发布时间：2018/2/3 16:35:00
--
此主题相关图片如下：捕获.png
-- 发布时间：2018/2/3 16:42:00
--
试试：看msgbox(bd.name)弹出了几次，第几次出错
Dim r As Row = Tables("派工").Current
If r IsNot Nothing Then
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", IIF(r.DataRow.RowState = DataRowState.Modified , "U#", ""))
If p > "" Then \'不是新增或者修改的没有必要同步
r.Save()
\'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "派工" & "#" & r("_Identify")
msgbox(msg)
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
msgbox(bd.name)
QQClient.Send(bd.name, msg)
End If
Next
End If
End If
-- 发布时间：2018/2/3 17:05:00
--
此主题相关图片如下：17.jpg
此主题相关图片如下：25.jpg