共8 条记录, 每页显示 10 条, 页签: [1]

标题：无法理解，不知道错在哪里？

1楼

hitzfeld 发表于：2024/7/29 16:56:00

Dim drs As List(Of DataRow) = DataTables("入库明细").SQLSelect("入库日期 >= '" & dt1 & "' And 入库日期 <= '" & dt2 & "' and 供应商 = '" & gys & "' and 审核='已审核'")

For Each dr1 As DataRow In drs

dr1("过账") = False

DataTables("入库明细").SQLUpdate(drs)

DataTables("入库明细").load

msgbox("反过账完成！")

End If

这段代码是更新后台数据的状态（逻辑值）。问题在于执行的时候，第一次可以，状态有变，第二次不行。第三次又可以，第四次不行。不知道错在哪里？感觉代码没有问题啊？

特别说明，不行的时候，看了sql后台数据，确实没更新。

2楼

有点蓝 发表于：2024/7/29 16:59:00

调试看看每次查询的结果数量

Dim drs As List(Of DataRow) = DataTables("入库明细").SQLSelect("入库日期 >= '" & dt1 & "' And 入库日期 <= '" & dt2 & "' and 供应商 = '" & gys & "' and 审核='已审核'")

msgbox(drs.count)

For Each dr1 As DataRow In drs

3楼

hitzfeld 发表于：2024/7/29 17:03:00

老师好，msgbox(drs.count)返回值都是正确的。除了状态没有改变。仍然是按1，3，5可以。2，4，6不行的情况

4楼

有点蓝 发表于：2024/7/29 17:17:00

如果使用的是SqlServer数据库，跟踪一下2，4，6的时候后台数据库执行了什么sql

5楼

kaiyu 发表于：2024/7/31 9:08:00

dr1都没有保存

6楼

有点蓝 发表于：2024/7/31 9:38:00

我测试这种用法没有问题。请上传实例测试

7楼

lur320 发表于：2024/7/31 10:22:00

Dim drs As List(Of DataRow) = DataTables("入库明细").SQLSelect("入库日期 >= '" & dt1 & "' And 入库日期 <= '" & dt2 & "' and 供应商 = '" & gys & "' and 审核='已审核'")

For Each dr1 As DataRow In drs

dr1("过账") = False

DataTables("入库明细").SQLUpdate(drs) 后台保存了，客户端呢？

DataTables("入库明细").load load会先保存本地的数据至SQL然后再从数据库加载至本地，可以试试load(false)

msgbox("反过账完成！")

8楼

cd_tdh 发表于：2024/7/31 10:58:00

客服端需要刷新表内容才能看到数据库里面修改了的最新数据

共8 条记录, 每页显示 10 条, 页签: [1]