[求助]问题求解 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]问题求解

共有2543人关注过本帖树形打印复制链接主题：[求助]问题求解

fczhaobo

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

等级：小狐帖子：394 积分：4047 威望：0 精华：0 注册：2017/3/24 15:10:00

[求助]问题求解 发帖心情

Post By：2021/4/4 22:09:00 [显示全部帖子]

第一段代码：

Dim dr As DataRow = DataTables("预报名表").SQLFind("订单编号='" & s & "' and 是否支付成功 is null ")

If dr IsNot Nothing Then

dr("是否支付成功") = "支付成功"

dr.Save

End If

第二段代码：

Dim cmd As new SQL Command

cmd.Connecti

Dim dt As DataTable

cmd.Com mandText = "S elect * F rom {预报名表} W HERE 订单编号='" & s & "' and 是否支付成功 is null "

dt = cmd.ExecuteReader(True) '记得将参数设置为True

If dt.DataRows.Count > 1 Then

dt.DataRows(0)("是否支付成功") = "支付成功"

'dt.DataRows(1).Delete() '删除用代码

dt.Save()

End If

问题是：第一段代码能保存，第二段代码保存不了。

fczhaobo

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

等级：小狐帖子：394 积分：4047 威望：0 精华：0 注册：2017/3/24 15:10:00

Post By：2021/4/5 21:11:00 [显示全部帖子]

以下是引用chen37280600在2021/4/5 13:05:00的发言：
If dt.DataRows.Count > 1 Then

应该是=1吧，查出来是1行，>1行就是要求要2行以上，

所以你的if里压根就没去执行什么删除和save

厉害！谢谢了！

主题：[求助]问题求解