Foxtable(狐表) → 用户栏目 → 专家坐堂 → 核销溯源码到SQL数据库数据更新问题


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

主题：核销溯源码到SQL数据库数据更新问题
帅哥哟，离线，有人找我吗？
weibu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		核销溯源码到SQL数据库数据更新问题  发帖心情 Post By：2018/8/5 16:32:00 [只看该作者]

Dim pd As DataRow
Dim txt As String = Forms("盘点核销").Controls("TextBox1").Value
pd = DataTables("盘点单据").SQLFind("[盘点单号] = '" & txt & "'")  '找出本次盘点单据的盘点数据
If pd IsNot Nothing Then '如果本盘点号盘点单据有数据
     Dim syms As List(Of String)
     syms = DataTables("盘点单据").SQLGetValues("溯源码", "[盘点单号] = '" & txt & "'")'找到本部门所有可用溯源码
          For Each sym As String In syms
               DataTables("溯源码").SQLReplaceFor("是否可用", 0,"当前所在部门 = '" & pd("盘点部门") & "' And 子溯源码 <> '" & sym & "'")
          Next
 MessageBox.Show("核销成功!", "提示")
 Else
         MessageBox.Show("核销时输入框单号保证存在且正确!", "提示")
End If

需求：有两个表“溯源码”和“盘点单据”，我希望 如果“溯源码”表中存在   “盘点单据”中没有的溯源码时，“溯源码”表中这些溯源码行所对应的列“是否可用”为FALSE;
我用的数据库是SQLserver。上面代码错那里了，帮忙看下，弄了很长时间都不对
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/5 20:45:00 [只看该作者]

Dim pd As DataRow
Dim txt As String = Forms("盘点核销").Controls("TextBox1").Value
pd = DataTables("盘点单据").SQLFind("[盘点单号] = '" & txt & "'")  '找出本次盘点单据的盘点数据
If pd IsNot Nothing Then '如果本盘点号盘点单据有数据
    Dim syms = DataTables("盘点单据").SQLGetComboListString("溯源码", "[盘点单号] = '" & txt & "'").replace("|", "','")   
    DataTables("溯源码").SQLReplaceFor("是否可用", 0,"当前所在部门 = '" & pd("盘点部门") & "' And 子溯源码 not in ('" & syms & "')")
    MessageBox.Show("核销成功!", "提示")
Else
    MessageBox.Show("核销时输入框单号保证存在且正确!", "提示")
End If

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询