以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动追载数据后怎么批量处理呢  (http://foxtable.net/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查询数据库数据