Foxtable(狐表)用户栏目专家坐堂 → 更新后台数据


  共有4197人关注过本帖树形打印复制链接

主题:更新后台数据

帅哥哟,离线,有人找我吗?
HANZHIGANG
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4449 威望:0 精华:0 注册:2015/3/21 14:25:00
更新后台数据  发帖心情 Post By:2022/6/24 21:46:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建 文本文档.txt



 回到顶部
帅哥哟,离线,有人找我吗?
HANZHIGANG
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4449 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2022/6/24 21:46:00 [只看该作者]

以上代码不可执行?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
HANZHIGANG
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4449 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2022/6/25 9:49:00 [只看该作者]

access
用您的代码我再试试
多谢老师

 回到顶部