遍历整个表，更新状态数据，可以直接更新到数据库，但是想实现按条件进行更新，而不是全部更新，
cmd.CommandText = "se lect * from 台账 "
Dim dt3 As DataTable = cmd.ExecuteReader(True)
For Each r As DataRow In dt3.DataRows
r("第一种形态") =Nothing
r("第二种形态") =Nothing
r("第三种形态") =Nothing
r("第四种形态") =Nothing
For Each s As String In {"处分形态1","处分形态2","处分形态3","处分形态4","处分形态5"}
If r(s)="" Then
Else
r(r(s)) = r(r(s)) + 1
End If
Next
dt3.save
Next
当前按条件更新代码如下：
cmd.CommandText = "sel e ct * from 台账 where 问题guid='" & e.Values("问题guid") & "'"
Dim dt3 As DataTable = cmd.ExecuteReader(True)
Dim r As DataRow = dt3.DataRows(0)
If r IsNot Nothing Then
r("第一种形态") =Nothing
r("第二种形态") =Nothing
r("第三种形态") =Nothing
r("第四种形态") =Nothing
For Each s As String In {"处分形态1","处分形态2","处分形态3","处分形态4","处分形态5"}
r(r(s)) = r(r(s)) + 1
output.show(r(s))
output.show(r(r(s)) + 1)
Next
r.save
End If
当前代码修正如上 红色部分可以输出值 但是值不保存到数据库表中 麻烦老师继续指导下 谢谢！
[此贴子已经被作者于2023/3/30 14:56:43编辑过]
加好友 
发短信
Post By：2023/3/24 23:25:00 [显示全部帖子]
