无法理解，不知道错在哪里？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 无法理解，不知道错在哪里？

共有687人关注过本帖树形打印复制链接主题：无法理解，不知道错在哪里？

hitzfeld

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：522 积分：5138 威望：0 精华：0 注册：2017/9/1 23:28:00

无法理解，不知道错在哪里？ 发帖心情

Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109266 积分：555962 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

hitzfeld

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：522 积分：5138 威望：0 精华：0 注册：2017/9/1 23:28:00

Post By：2024/7/29 17:03:00 [只看该作者]

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109266 积分：555962 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/29 17:17:00 [只看该作者]

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

kaiyu

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：777 积分：7895 威望：0 精华：0 注册：2014/4/21 15:16:00

Post By：2024/7/31 9:08:00 [只看该作者]

dr1都没有保存

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109266 积分：555962 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/31 9:38:00 [只看该作者]

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

lur320

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1009 积分：8816 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：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("反过账完成！")

cd_tdh

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3128 积分：20860 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2024/7/31 10:58:00 [只看该作者]

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

下一主题 >> << 上一主题

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