以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]发送消息后出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106081)

--  作者:lgj716330
--  发布时间:2017/9/1 17:03:00
--  [求助]发送消息后出错
弄了个消息发送功能,发送后,接收者登录时出现这个错误提示,关都关不掉

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170901170231.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/9/1 18:17:00
--  

你写了appendload的代码吧?如果你对应的行已经加载,就不能重复加载了。

 

http://www.foxtable.com/webhelp/scr/2914.htm

 


--  作者:lgj716330
--  发布时间:2017/9/2 8:23:00
--  
对,有个计划代码是这样的

Dim flt As String 
Dim drs As List(Of DataRow)
flt = "接收者 = \'" & User.Name & "\' And 接收时间 Is Null"
drs = DataTables("信息表").AppendLoad(flt, False)
For Each dr As DataRow In drs
    dr("接收时间") = Date.Now()
    dr.Save()
Next

--  作者:lgj716330
--  发布时间:2017/9/2 8:35:00
--  
在项目事件里也有加载条件,应该是重复了吧,我把计划取消执行就可以了
--  作者:有点蓝
--  发布时间:2017/9/2 8:47:00
--  
1、先判断是否有此条件的记录在追载

if DataTables("信息表").Find(flt) isnot nothing then 

2、先移除,再追载

DataTables("信息表").RemoveFor(flt)
drs = DataTables("信息表").AppendLoad(flt, False)

3、如果只是为了更新时间,直接更新即可
DataTables("信息表").SQLReplaceFor("接收时间",Date.Now,flt)