以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动追载数据后怎么批量处理呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180144)

--  作者:北冰洋
--  发布时间:2022/9/30 12:48:00
--  [求助]自动追载数据后怎么批量处理呢
If Tables("输入表").Current.IsNull("编辑人") = True Then 
    \'下面是打印代码                                                                                     
   打印代码
    Tables("输入表").Current("编辑人") = ("已打印")
    Tables("输入表").Current.Save() \'保存选定行
End If

老师好,请问在AfterLoad事件 设置上面的代码,为什么只有当前行会执行,其他符合条件的行不会执行呢,应该怎么修改呢

--  作者:有点蓝
--  发布时间:2022/9/30 13:36:00
--  
Current就是当前行,这个代码本来就只处理当前行。


--  作者:北冰洋
--  发布时间:2022/9/30 18:01:00
--  
谢谢老师 还有个问题 我在httprequest事件最后加上下面代码,可不可以做到及时加载最新的数据呢,好像没有执行,但是这段代码在表事件里是可以执行的,是需要修改哪里吗? 麻烦老师了

Dim Filter As String = "日期 >= \'" & Date.today & "\' and 日期 < \'" & Date.today.adddays(1) & "\'"
DataTables("输入表").RemoveFor("[终点] <> \'PD01\'")
DataTables("输入表").AppendLoad(Filter)

--  作者:有点蓝
--  发布时间:2022/10/4 8:34:00
--  
如果是使用web服务,不建议使用表格加载数据了,可能会有并发问题。

建议需要的时候直接使用sql查询数据库数据