- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 更新后台数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178239)
-- 发布时间：2022/6/24 21:46:00
-- 更新后台数据
-- 发布时间：2022/6/24 21:46:00
--
以上代码不可执行？
-- 发布时间：2022/6/25 9:26:00
--
什么数据库？access？SqlServer？
直接update，效率更高
Dim cmd As New SQLCommand
cmd.ConnectionName = "H"
Dim Filter As String = "[上游客户] = \'" & e.DataRow("上游客户") & "\' And [品牌] = \'" & e.DataRow("品牌") & "\'And [上游动态] = \'" & e.DataRow("上游动态") & "\' And [计划日期] >= #" & e.DataRow("起始日期") & "# And [计划日期] <= #" & e.DataRow("终止日期") & "# And 上游对账 = False And 二次 = false"
cmd.CommandText = "update {运单管理} set 上游单价=“ & e.DataRow("上游单价") & ” Where " & Filter
dim res as integer = cmd.ExecuteNonQuery()
msgbox("更新了" & res)
cmd.CommandText = "update {运单管理} set 上游单价=null Where not(" & Filter & ")"
res =cmd.ExecuteNonQuery()
msgbox("更新了" & res)
End Select
-- 发布时间：2022/6/25 9:49:00
--
access
用您的代码我再试试
多谢老师