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

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

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

hitzfeld

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

等级：二尾狐帖子：524 积分：5154 威望：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后台数据，确实没更新。

hitzfeld

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

等级：二尾狐帖子：524 积分：5154 威望：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不行的情况

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